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MCALL 


- SPOWER, .STYPE, .EQUAT, .SCMTAG, . SERRTYP, 





- STYPOCT 


MCALL “Sen cH, Sree TRMTRP, SETTRAP, . SREAD, . SROCEC, . SERROR, . SSCOPE 


MCALL goked : pigoge? 'SSAVE, . $RAND 


-HEADER t/MAINDEC-11-DZICA-B/, 1976, t/DAN DEKNIS/ 
THLE MA wey toe -B 
HsSIGtTaL Eau nt CORP. 
MAYNARD, 01754 
: SPROGRAM BY DAN DEKNIS 


3% 
S*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; HPACKAGE (MAINDEC™11-DZQAC-CO),MAR 21, vee 


itne1 
SCATCH START . 


"SBTTL TRAP. CATCHER 


20 
s#ALL UNUSED LOCATIONS FROM 4 - 77& CONTAIN A“. +2, HALT” 
:#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:#LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .W ;;SOFTWARE DISPLAY REGISTER 
SWREG: .W ;;SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES: 
JMP aaSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
2210 sy 
JMP aeSTART! 


-EQUAT 
~SBTTL BASIC DEFINITIONS 
j#INITIAL ADDRESS OF THE STACK POINTER #&* 1100 ### 


-STACK= 1100 
EQUIV bet , ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT’ SCOPE > :BASIC NITION OF SCOPE CALL 
p MISCELLANEOUS DEFINITIONS 

t= iL ;;CODE FOR HORIZONTAL TAB 

LF= 1 ae :: CODE FOR LINE FEED 

CRF 3 $F EODE F é AGE 7 ae LINE FEED 
= +: PR ER BRRAGE RET 

EQUIV PS, PSW 

: KLMT= 177774 + STACK L LIMIT T REGISTER 
IRG= 177778 33PR QUEST REGISTER 


BBisP= 197 ? fo SulcH REGISTER 
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;#GENERAL PURPOSE REGISTER DEFINITIONS 
,#PRIORITY LEVEL DEFINITIONS 
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CRB.P1l BASIC DEFINITIONS oe 
113 BTTAQs 2u00 
114 l BITOS= 1000 
11s 000400 BITO8= 400 
HE TO7= 
aii Tee: 4 
i TOY: 
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ERRORS 
aa “ILLEGAL INSTRUCTIONS 
! oe TRAP (BPT) 
t:INPUT/OUTPUT TRAP (IOT) ##SCOPES# 
HEEPU ATOR TRAP (EMT) #*ERROR## 
::TTY KEYBOARD VECTOR 


TT 
itty PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 
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COMMON TAGS 
.SBTTL COMMON TAGS 
TARS 
: Lae TAAL E CONTAING VARTOUS COMMON cloRoae TocaTi One ee 
?&THIS TABLE CONT al NS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PR 
1100 211 
- ScHTAG: - $3START OF COMMON TAGS 
G00505 Nits ‘me 8 TA Ne Sue rest NUMBER 
wale sre BYTE 3 Hoon i EEE on Plas 
000000 stents: “WORD O ::CONTAINS SUBTEST ITERATION COUNT 
900000 SLPADR: .WORD 0 *:CONTAINS SCOPE LOOP SS 
000000 SLPERR: -WORD 0 ssCONTR NS SCOPE RET OR ERRORS 
a is spiene: ‘eve # HCOMTaInNS Ife cOnTRoc By BF « 
SERMAX: .BY 1 
SERRDR: “WORD 8 Sue aa ra per 
ss 1 eB SiN P "S000" ar 
oo0000 WORD : RESERVED--NOT TO BE USED 
a TOB: “BYTE 0 AuTonan MODE INDICATOR 
000 SINTAG: .BYTE 0 : INTERRUPT MODE INDICATOR 
177570 : “HORD Sour ADORE OF SWITCH REGISTER 
1 ISPLAY: .WORD DDISP :3 OF DISPLAY REGISTER 
ee ie | any 
177564 TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
l TY PRINTER 


BeRy 
ae 
= 


SFILLS: a 2. eae FILLER CHR R_SHARACTE TERS S ReQUiRED 
SPF Le: By : >: "TERMINAL wRILABLE™ FLA A att rs cievES) 


TIMES: O ss 
eee Bes: ASCH 727 ?:QUESTION MARK 
15 : ASC «15> ;;CARRIAGE RETURN 
co0012 SLE: ASCIZ <1l2> >:LINE FEED 


5p RERRSELSRESSSRELELALELL SERS LAA LERALLLRAASLSSRELELALALATERAREELE 


Ol 
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OZICAB. P11 ERROR POINTER TABLE 


.SBTTL ERROR POINTER TABLE 


pers, Men CONTAINS THE MA calt ON FOR EACH qo” Mig CAN OCCUR. 
NFORMATION IS OBTAINED BY USING THE INDE N 


OUND I 
subg OVER, TE AE ING eho J cee |s FeO 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: f ERR naer 


;;POINTS i THE DATA FORMAT 


sania 


GENRES 


061165 SERRTB: 
3005 ERRORS 
210 1 ADDRESS ABILITY 
ell 001 196 022141 fe ;"COULD NOT SEND-RECIEVE DATA” 
gig 1170 022536 - OHI ERROR A 
l > PC ADDR 
214 001172 001500 oT _ESERRC, ADCSR, 0 
eis 001174 001476 DF : 
5i5 “ERROR 2 “BIT EXERCISER" 
218 001176 022177 EMe ;"SEND-RECIEVE DATA ERROR™ 
219 001200 DHe ; ERROR A/D. GOOD BAD 
: PC ADDR DATA ‘DATA 
001202 o01506 oTe : SERRPC, ADCSR,  SGDDAT, SBDDAT,C 
001204 001476 OFO :0 
ERROR 3 CONVERT BIT sist 
001206 022231 EM3 sCONVERT BIT FAILED TO SET 
001210 | OH1 sERROR A/D. 
Oole1e 1500 OT] > PC BDOR. , 
001214 001476 FO *SERRPC, ADCSR,O 


CONVERT BIT FAILED TO CLEAR 


TeAEGRA STAT R SE Soe SON eR 


01216 022265 | EMyY 
1220 022536 OHI * ERROR 
OOle22 001500 OT! > PC ADDR 
001224 001476 | OFO ?SERRPC, ADCSR,O 
7 jERROR § READ C/R BIT 
901226 g22928 | Ens sCAN’T READ DATA REGISTER 
001 OHI ERROR A 
O0ie32 001500 pi | : - ADDR 
001234 001476 . OFO :SERRPC, ADCSR,O 
ERROR 6 AOOS INTERRUPT 
001236 022356 EMG ADOS FAILED TO INTERRUPT 
001240 022536 DHL Lm sERROR 70 
248 OOle42 001500 OT] PC = ADOR 


GO1 


Pere t ozicas MACY11_27(732) 20-SEP-76 15:53 PAGE 7 


ICAB.P ERROR POINTER TABLE 
gv9 001244 001476 DFO ;SERRPC, ADCSR,O 
251 | <Any sERROR 7 AOOS ADDR OR GENERIC CODE 
01 1 M7 ADDR. OR GENERIC CODE INCORRECT ON INTR. 
Bb 1Ss8  Seseee iE OR MODULE  ICAR 


ERROR 16 COUNTER DIDN’T HALT ON OVERFLOW 
3347 MIS 
Oo! ~m TY 


1 001 : ) T Pages 

ser es RIG a6 settee, SBGhe, cbt, slbar 
e58 sERROR 10 RIF BIT aren 
30 001256 70 M10 pia IE DID Not NOT CLEAR INTR. FLAG ON ADDS 

1 O01 36 Hl . 
262 O0le62 001500 DTI 
33 001264 001476 DFO ‘alee ADCSR 
265 ;ERROR 11 COUNTER MODULE ADDRESSABILITY 

58 001266 023015 EM11 sCOUNTER MODULE COULD NOT READ-WRITE BUFFER 
268 001270 023077 DHY s ERROR COUNTER 
263 001272 0T3 :PC ADDR 
270 001274 001476 DFO : SERRPC 
He sERROR 12 COUNTER MOPULE “BIT EXERCISE ROUTINE 
274 001276 022177. - me EM2 
275 991300 Geee71 He 
a Bolsod Dole BO 
a3 : sERROR 13 COUNTER MODULE COUNTING 
‘001 é M ;COUNTER MODULE MISSED A COUNT 
Ses BoLsip ABSe7t tee | | _ 
283 O01312 O01526 DT4 
oe4 001314 001476 DFO 
ee) sERROR 14 COUNTER MODULE FAILED TO INTERRUPT 
001316 023204 EM13 ;COUNTER FAILED TO INTERRUPT 

289 001320 923077 DHY phe 
o30 901322 001520 OT3 

1 001324 001476 DFO 
£53 ERROR 15. COUNTER MODULE ADDR OR GENERIC CODE INCORRECT 
295 001326 02325 M14 
=] waRee 1 T4 
5a 001339 | ODIN7E Bro 
253 
300 
ene 
zo BS 


ee ee eee - - - 


-—- <= =o 3 oo «= - « 
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CRERROR POINTER TheLe 


OZICAB.P1l 
305 001344 001476 DFO | 
307 ; sERROR 17 RIF DIDN’T CLEAR INTERRUPT FLAG ON COUNTER 
1 0234 r M16 
SO} oniee cea, eh 
311 O013S2 001520 OT3 
ats 001354 001476 DFO 
3 ‘ ;ERROR 20 COUNTER MODULE INITIALIZATION PART 1 
316 001 023506 . EM17 ;INIT FAILED TO CLEAR COUNTER BIT(S) 
3 oot ooiee } pte 
318 1364 135? OFO 
ee ;ERROR 21 ILLEGAL INTERRUPT POSTED ON ICS BUS 
001 02 EM20 
oH a posses Pe 
3eS OO] 1520 DT3 
326 001374 OO01476 DFO 
cS sERROR 22 ICS-11 FAILED TO INTERRUPT 
330 001376 023630 Emel 
331 le a 
Eee Soes Balaee Bi 
4 ;ERROR 23 ICAR NOT ZERO AFTER FORCED ICS INTERRUPT. 
337 OO1406 O23666 EM22 
iis : DHS 
141 1526 T4 
g40 OOl4I4 001476 - OFO | 
as sERROR 24 SYS INITIALIZE FAILED TO CLEAR COUNTER INTERRUPT FLAG 
xo elu ay Be 
14 
246 ates 001520 DT3 
ead 001424 001476 DFO 
203 sERROR 2S COUNTER STARTED COUNTING AFTER SYSTEM INIT. 
1 001426 024017 ' 
0014 1 
1432 1526 _ DT4 
1934 1476 DFO 
355 Cake 
27 ;ERROR 26 ADDS READ DUAL ADDR ERROR 
0014 024100 
339 eaten 024217 pies sERROR A/D DUAL 
360 O01442 001540 OTS s PC ADDR ADDR 


eee ee 


01 


OE at -OcicaS MACY11_27(732) 20-SEP-76 15:53 PAGE 9 
NTER TABLE 


DZICAB.P ERROR POI 
361 001444 001476 DFO 
363 sERROR 27 AOOS WRITE DUAL ADDR. ERROR 
365 0014 1 
ee id 
1 
14 
369 
370 
371 sERROR 30 SEND -RECIEVE DATA ERROR 
0014S& O24i65 . EM27 
001460 022571 DHe 
001462 001526 DT4 
001464 001476 


;ERROR 31 SAME AS ERROR 30 ONLY NO HEADER TYPEOUT 


374 
375 
376 : 
ie 
379 
- 380 
381 OO1466 001476 DFO . 
382 001470 001163 SCRLF 
383 001472 001526 or 
384 001474 001476 0 
se 
387 001476 og0000 DFO: O. at ae 
ae i) 3 ° a 
3 pt ODILiE OOo DES nee Br: “HOR SERRPE ABESR SCODAT, SBODAT, 0 
390 001514 001126 oo0000 “st 
. 391 001520 001116 OO1l22 O00000 DT3:  .WORD SERRPC,SBDADR,O 
392 001526 001116 O0lle2 001124 DT4: | :WORD SERRPC,SBDADR, SGDDAT, SBDDAT,O 
3a ohteag poitee rid 001122 OTS: WORD S$ERRPC,ADCSR, SBDADR,O 
339 az 
338 ;#TABLE OF CONSTANTS 
400 001550 020320 -. FRILO: 20320 —CO ~  sTTY DELAY TIME 
ie 001554 Speees FRUO: e726 
001556 002724 FRED: 2724 
404 001560 O0e0Se2 FRI6: e052 sDELAY FOR 16 MILLSEC 
4os5 001562 001024 FRO: i024 
406 001564 000500 FR3: sDELAY FOR 3 MILLI SEC. 
ube Bot=9— 000000 FREGi: 0 sone ate: 
409 ptes5 650000 FREQ2: ; 
ait Soteze Boorse Faroe: 1 sDELAY FOR LLI SEC 
aig vaste anes FRt ico: 2 Fa 5 FOR 11/45. 
4} 001606 oo0000 PATRNM: O parte MMODIFIE 
414 “OO1604 PATRN: . SPATTERN TO BE ERT T0 OUTPUT MODULE 
41S 001606 00 =, PATRNC: 
416 001610 000000 PATJOY: 


‘ 


= 
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OZICAB.P11 ERROR POINTER TABLE 


;STARTING ADDRESS OF ICS MODULES. 


888888 
pe f= fo p> Bae 
cow 

b= he pmo 

oO cru 


SRERERDeEs Peep eRORT Rs 


t= 


;CLEARED ON PROGRAM START AT 200 

;END ADOR OF CORE. 

;O=NOVICE MODE--1=EXPERT MODE 
;O=NORMAL; 1=MODS CONNECTED FOR TST 0 


;O0=TTY OUTPUT---1=LINE PRINTER 


S88888s88sSsSsssssssss 


Bee 2 ft Bos 9 Bs fs pe Be 


Rist aid 


; RTI_INSTRUCTION 
;RTS PC INSTRUCTION 
;JSR PC, INSTRUCTION 


-SETUP <.STRAP,.SSCOPE,.SERROR, . SPOWER> 


START: SETUP 
~SBTTL INITIALIZE THE COMMON TAGS 
CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV 8SCNTAG, Rb ssFIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
CMP #SWR,R& ;;DONE? 
, $3 L00P BACK IF NO 
MOV #STACK, SP 3;SETUP THE STACK POINTER 
;; INITIALIZE A FEW VECTORS 
MOV #SSCOPE, JBIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340 aalorvece ssl ? 
#SERROR, QWEMTVEC ; 5EM VECTOR FOR ERROR ROUTINE 
#340, aEMTVEC+S ; :LEVEL 
TRAP, oaT g >: TRAP VECTOR FOR TRAP CALLS 
#340, ak Cee; LEVEL 7 
C s gPOWER, FAILURE VECTOR 
stEVit  r2e NUMBER OF ITERATIONS 
ss INITIALIZE THE LOOP ADDRESS FOR SCOPE 


So 


8888 888 
Petes eet ent ot at at = 
Oooo0000o oO 

= 
qaaeeNd § 


888 


440 
441 
44e 
443 
444 
445 
446 
447 
448 
449 
450 
451 
45e 
453 
454 
455 
456 
457 
458 
459 
460 
3 
463 
464 
be 
467 
2 
470 
471 
472 


SXSRYSEND Sanse 


: 
oO 
ay 


StS 
gee 
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DZICAB.P11 INITIALIZE THE COMMON TAGS 


473 002016 
474 ;;SIZE FoR Peas SUITCH REGISTER. IF NOT FOUND OR IT IS 
475 s3EQUAL T TUP OFTWARE SWITCH REGISTER. 
Heb 002016 013746 oo0004 V WER RRVEE, -(SP) “gave ERROR VECT OR 
arg rienced ft To5ese Metts noy ais, SWR 33 tub FBR 4 HARSHORE SWICH REGISTER 
47§ 002036 012737 177570 001142 MOV #DDISP, DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
480 ope044 086777 177777 177066 CMP #-1, aSWR Hee TO REFERENCE HARDWARE SWR 
481 1012 BNE 665 BRANCH IF NO TIMEOUT TRAP OCCURRED 
182 HE HARDIE SWR IS NOT = -1 
oo02054 o00403 BR 65$ :iBN CH IF NO TIMEOUT 
484 002056 012716 o02064 64S: Hoy #655, (SP) >:SET UP FOR TRAP RE 
te Mie 1 000176 001140 65S: MOV ;;POINT TO SOFTWARE SWR 
487 002072 Ole737 000174 001142 MOV IOtGPREG, DISPLAY 7 Ps 
488 002100 012637 66S: MOV (SP)+ S DRERRVEC ”  SRESTORE ERROR VECTOR 
‘480 002104 012737 176543 O16342 MOV #176543, SHINUM 
491 Q0ell2 012737 123456 O16344 MOV #123456, SLONUM 
132 002120 005037 001654 CLR 
494 : cae 
435 ‘ - SPILL LOCATIONS "214-1000" WITH .+2, IOT 
497 - 
498 002124 012700 000214 FILVEC: MOV #214,RO 
499 002130 Ole701 O00e16 MOV #216-R1 
500 002134 010120 98$: MOV R1, (RO)+ 
501 002136 Ole7e0 ooo0o4. - MOV #4 (RO)+ 
be 902142 Oeelel CMP (RL )s, (R14 
002144 001000 CMP #1000; RO 
504 002150 003371 _ BGT 98s 
Sos bo215¢ 104400 TYPE 5 TYPE HEADER 
0b 002154 020574 as MHEAD - 
204 jt SINCE ISC-11 IS CAPABLE OF DIFFERENT CONTROL REGISTERS 
503 ja ASK OPERATOR FOR FILE BOX AND INTERRUPT VECTOR ADDRESS 
S11 < 
Si2 o021S6 012737 002164 001700 MOV $10$, CTLLOC , 
513 oo2164 i 026251 _- 10S: TYPE, MFILE ASK FOR FILE BOX 
514 00e1 12737 000001 o02206 MOV $1,225 
51S 002176 OO0401 BR 44 . 
ee err Foer_ 8 
e18 002204 Obie7e ma THPFIL 
: be 00221 tee7a? 000013: 001672 “Mp #13, THPFIL 
1 00221 BGE il tA 
S22 002220 tie 026336 TYPE, I G ;ILLEGAL FILE BOX... RE-ASK 
Bps55¢ 1 171 1702 11%: MOV & CSLMT sINIT. MODULE ADDRESSES 
e24 002234 O1 vie eats MOV #1 Lise Leek ‘INIT. ICSR 
tee Geer Galtrs = ass: Merl ec 
255 1407 "i. [oe 18$ BRANCH iE FOUND 
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DZICAB.P1l INITIALIZE THE COMMON TAGS © 


002254 162737 000010 001614 SUB #10, ICSR NEXT I 
meet 37 000040 001702 D fap ics He XT icahp OF MODULE ADDRESSES 
001614 001616 18S: OV R, ICAR LOPATE ICAR 

002200 162737 00 001616 SUB #2, ICAR 

306 013737 O01 001676 MOV IGgLNt ICSHGH SET UPPER ADDRESS !.IMIT 
002314 062737 OO0040 001676 ADD ICSHGH 
O0e322 O01 336 000004 MOV HES ae4 
eed 177260 HOV SICSR,RO 

336 ' .12$:  POPSP2 
002340 104400 o26sse TYPE,  NONXST 
002344 000707 BR 10$ 

346 ui 000006 O00004 $75:  #$ MOV #6, 084 

er 001700 MOV #99S, CTLLOC 
1 99S: TYPE, MVECT ASK FOR INTERRUPT VECTOR 

002366 012737 000001 o02404 MOV #1,23$ 
002374 000401 ER +4 
002376 000771 
002400 104411 NOCT 
BA fale zs, we 
002406 2279? 000776 001674 CMP #776, TMPVEC 
002414 Oo02404 BLT 163 
002416 022737 000234 001674 CMP #234, TMPVEC 

4 0034 Pee ILE 

26 104400 026336 16S: , ILE :NOT IN FLOATING AREA 
002432 000753 BR 99$ 


3 bo1620 178: Moy THPVEC. I¢SvT 
Bosses Grs7s7 BoleAd Oolese NOY tievec. De isvre ;STORE VECTOR ADDRESS 


Ar, er VECTOR GIVEN IS ACTUAL VECTOR BEFORE GOING 


PERE B aod Sono eb Grine Lior Ba mee SouapreTT ERR | 
5 
% 
: 
8 
2 
g 


QO2HSE 013737 gaqg29 gn2be4 uy 2820, 335 20 tae 
Sq 33 biE777 BoSeoe age MOV peas JICSVT Ser ie uP PyoT Ree ROUTINE 
OSepe B15949 Sposdo a HOV $4 o SICRV bes ie PORTORITY To 5 
ooe514 12777 OO0404 177072 Noy #404; JICSR SET MAINT. to INTERRUPT 
002524 104400 026431 TYPE, NOINT 
002530 013737 002624 o90020 HOV 338, 0820 HRESTORE LOC C2 
pass4g Seah OL 60s 955: MOV (SP).RS HInvaLt OE e TOR ADDRESS PRINT 
CMP = =(RSJ,=(RS) © PROR Be 
002544 022626 POpSPe POP STACK 
nosse6 Tog 026474 TYPE, FILINT :PRINT WHERE VECTOR 
BOSEEy OLOSE i ee 
iowgt TYPOC ' + e0 Fvpe- POC TAL SETI CALL DIGITS) 
40 026527 TYPE. CKJMP 
002564 022626 POPSP2 
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177022 965: JICSR 
Oo262e4 oo020 | V 938,820 


002362 IMP 99S 
002624 000020 94S: 93$, a#20 s INTERRUPT OK, RESTORE 20 
+ ee *POP STACK 
. 176772 JICSR 
+4 
: ‘93S: 
*FILL LOCATIONS "214-1000" WITH .+2, HALT 


3 
aSTORTI, CTLLOC 

F ILHLT: #214,R0" 

90S: 


(RO)+ 
RLS CRI) 
81000; RO 


akEYSRY a#60 
100, aS TKS 

rag oe 

LPAY 

SLPCSR 


5 
533 
594 
535 
596 
230 
533 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 


8$ 
LPAV 


COOOrrruw ada 
ee 
WONT £WMUHO 


,ae4 ;DETERMINE CORE SIZE. 


#6, 84 
eR ‘Fito FREQ FOR 11/20. 


IF ime re THEN BELAY ITERATIONS 


Sens 


FLOW FELL THUR TO HERE - 
f Hust BE AN 11/45 BR EQUIV. 
tSETUP FOR TRAP 
‘CHECK IF 11/70 

DOUBLE 


341770, 


aS 


COROT SERE SES SERGSRSE 
Ss 
Be 


BASSESES USSSERS 





MAINDEC-11-DZICA-8 
OZICAB.P11 


as 


roo 
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: 


ERESEREESES 


a io 
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ae 


oe 


aici 
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eres 
FSV LROL 
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wn 
oe 
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Saceeo 
a ee oe oe a a ne 
eae 


RERRCME LAEGER 


=t=t 


Dm bh be has pe Ps Fs fee Pe fs pe ph 


oe 


OC 
-— = 


88888 
uy 
it 

888 


oo 
: 


BUS Fe 


8=88 888 
ps f= pe 
b= b= fee 


o 
m 


Bes S8sss 8s 


be Gb pe 0 b= pe 9 


SS4 
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99S: 


a anageens Sobmtoaeeeetns = Seseeeses 


BR +4 
oP 
MOV (SP)+, 086 
MOV (SP)+’ae4 : 
CLR ¢ 
V R1,FR3 
ROL F 
MOV FR3,FRS 
ADD FRI,FR3 
ADD FR3,FRS 
MOV FRS, FRI6 
Ro, Fae 
FRS FRI 
MOV . FRIO,F 
ADD FRI,FRIG 
ADD FRS:F 
MOV FR2O,F 
ROL FRS 
re Fad 
FRSO,FRI10 
FRLIO. 
PRE venti 
FREO,FRYO 
FR4O 
 . EXPERT 
#FR FREQ 
Hah 
en 
$1p8’ 1POBR 
BINAGR, RO 
ST200 
(0)+ 
, SOUT 


tA ope staCK 
RESTORE LOC 6 
PRESTORE LOC 4 


iNOW NE Most 48+ THE REST OF 
‘OF THE DELAY TIMES UP. 


*CLEAR ADDR AREA 
ithBICATE START AT LOC 200. 


IAT ORR coon TF 90 CONTIN. 






he 

ooo-4 

> ee PIO 3: 
ure 


BREE 


0— 2 2 0-2 0-2 2 90 b-2 0 ho pe 
DONIC U1 .£ LITUeH 


MNININININ 


VSS LRRESS ASSEN SORE BROOD 


$85 BR 


atl 


é 
0-4 


3 


9-2 
rT 


cee Ue eeariines 


es 


[=] 
= 
fo 
o—- Fo : 


= 
a 
qo 


as 


7 (732) 
OMMON T 


000007 


"013042 


013042 
013042 
175324 
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AGS 


995: 


1§: 


4§: 


TSTNO: 
TSTLST: 


KEYSRV: 


02 






IMP ; PROGRAM STARTED AT AOOR. 200. 
Rov et FREQ  :SET REC at eEOR Ts CET ire TIME. 
MOV Fi 
MOV 
DELAY 8 DELAY 
RESET fee Svs M INITIALIZE. 

LAY ETTLE DOWN 7 
MOV #340,PS 
TYPE —_ “TEST NO.?” 
MOV aTSTNO, 1S 
MOV sl 13+ 
gS +4 

S93 

NOCT :GET TEST NUMBER 
TSTNO 
ist TSTNO 
a TSTNO, 87. ;LEGAL NUMBER? 
BLE 2g 
TYPE ;NO-TYPE “NO SUCH TEST” 
MTNL 
oe START1 
MOV TSTNO, RTEMP 
ASL RTEMP’ 
ADD eTSTLST, RTEMP 
MOV DRTEMP, RTEMP 
HOV 8100, astKs sENABLE TTY. TO INTERRUPT. 
IMP aRTEMP ;GOTO TEST 
0 ; TEST_NUNSER os 
TSTO s INPUT AND OUTPUT MODULE EXERCISER 
TST! : INPUT OR QUTPUT MODULE SIMPLE EXER. 
TS1 spac CALI TION tes! 
TST :DAC INTERACTION T ST 
TST4 sCOUNTER MODULE TEST 
TSTs sA/D LOGIC TEST 
TST :A/D CALIBRATION TEST 
151? A/D REPEATIBILITY TEST 


3% 
§ SKE YBORRD INTERRUPT HANDLER 


Hoy aSTKE. 2S 
BIC #177600, 2S 
CMPBséds3,2S 
BEQ 18 
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# 
;#TEST O INPUT AND OUTPUT MODULE EXERCISER 


TSTO: Ly ; TYPE HEADER. 
; GET nev 7 ee “PORES, 
EFAL 


iE gut T MODULE ADD 
T PATTERN (OR USE Di 
;GET DELAY TIME (OR USE DEF PACT) 


22702 
uS 


Rew Ge? 


~- 
~ 
£ 


SPASS 
HEADER 


orn : c vie 


888 
ay 


ze 


; TYPE HEADER. 
TOADR ;CLEAR TYPE OUT CONSTANTS. 
TOOAT 
TOGEN 


eo 


STAKE CARE OF OUTPUT ADDRS. 


2 


TOOUTR: sTOOUTR, SLPAOR 


iS 


oO 


cose 


OW ICS TQ INTR. 
CPU ALLOW INTRS. 


T OUTPUT List. 
f ye 
;SEND PATTERN TO OUTPUT MODULE. 


} 
~~ 
oad 


; TAKE CARE OF INPUT ADORS. 

; MODULES CONNECTED? 

;1F NOT NORMAL CONTINUE. 

;IF SO COS AREA = CURRENT PATTERN. 


oS 


- BNE 
001610 2S: - V_—- PATRN, PATJOY 


Oo 
& 
38 


sDELAY TIME 


7$3 
734 
733 
760 
zs 
é 
763 
764 
i: 
2S 
i 
FA 
773 
774 
es 
~ 778 
773 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
730 
731 
73e 
733 
735 
795 
796 
797 
738 
733 
800 
5 
804 
2 
e08 


crams SoS SCORN C IIa mae 


TPBSY: 
76 


BB 
3 
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“1Si (2),RL sPICK UP FIRST ADOR. 


004636 OLOP 
(d).(4) * DATA CHANGED? 
TOIN2 :IF YES TAKE CARE OF IT 


(2)+ 
(4)+ ;UPDATE COD POINTER 
own ;D0NE ALL INPUT MODULES? 


TOLOP 


sees 


0 = 0 = 0 bbb re 
OONIDMUI£LIfU-O 


CONNT 


= 


£8 
[= Ts 
So 


B58 
Bes 


a 


bb 
fas 


Y 
(1),¢4) 


-(6) 
sTOIN!,-(6) 
a$STPS 
TOPINT 
, 9SWR ; INHIBIT TYPEOUT? 
3NO_ CONTI 


_ TPBSY ;YES-STOP TYPEOUT 


(3+, 38TPB Poet 
#100, a$TPS sane Tye CRN INTR. 


TPS sy sere E DOWN TIME 
BSY ;CLE Y 


5 
S 
E 
S 
B 
830 
gat 
ese 
Mea 
4 
ae 
B43 
E 
846 
2 
E 
S 
5 
2 
a 
3 
863 


B 
£ 
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CAB.P 
86S 
Fag - 
B68 | : xICS INTERRUPT SERVICE ROUTINE 


£9 004630 TOINT: ! sGET ADDR. OF INTRING MOD. 
6$ FORM REAL ADDR. 


HHireout pe PEfOING? 


BEQ S$ 
me 0a et Ph re. 
BR 


177776 : MOV i OeK QUT_INTR.S 

175114 RE-ENABLE INTRS.AND SET RIF. 
001642 MOV ;GET GENERIC CODE 

001636 Vv 


004630 
004630 
004632 


001640 


sRIGHT JUSTIFY GEN CODE. 
;FIND OFFSET OF INPUT MODULE 
;THAT INTERRUPTED. 


;1F NOT ENTERED INPUT MODULE THAT 
; THAN WILL NOT BE IN TABLE 


REaRSLBAS 


ce 
Con 


OF COS TO RECORD 
NEW DATA FOR THAT MODULE. 


;NO-FORM at STRING. 
SET OUTPU 
;START OUTPUT 


SRS ie sents Be SRE oes ORR Ee Balad otal Beinkoted 


004406 
aa 
004426 
ae 
ae 
004462 
ane 
004500 
ee 
es 
e 
ee 
004574 
a 
et 
004624 
i 
004630 
Bes 
Bes 


: 
é 


TOOUTR 


Olod0O0U0O0UWOWW 
& 


Os b= 2 Os Ob ho ee 
WOnNCUILCWeH 


°# 
#ROUTINE TO CONVERT 3 OCTAL NUMBERS TO AN ASCIZ STRING 


8 





sPACK GEN CODE (IF ANY) 
;FILLER CHARACTERS. 
;STRING TERMINATOR. 


sSET UP BUFFER 
SRESET POINTER 


iL el tes 


ni aESEEES vs DSUs SOSSSSSSLVSSSSSS 


eee «B® B BRRBRR BR B 
ae ne i eee oe: 


sbab8 a 1 Eee 
Scones Eo Sea eye eee ae 
oo Es Beoncel clas aaananasianasnasanay 
LITO TRACER REESE STRUT RETR RRIGOREDR RROD 


= 
: 
a 
2 2k 
aa: 
ag 8 
s 
oy 
= 
J 


2 
S 
5 
? 
i 
2 


NAINDEC-11-DZICA-B 


DZICAB.P11 
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DZICAB.P11 INITIALIZE THE COMMON TAGS 
ess ? 004750 
"005225 Q04746 
possi 1] sh 
tees 112723 000240 

000240 
O0S26C 000137 003366 


014754 
173622 


1 173620 
173610 of Soe 


Sreciceacer tre renere Cr i ree 


aii GEL 


-_ 
Re 
ray 

Oo 

-_ 


013042 


ee 


. 


014754 
014754 


QooOI0OK0000R: 
1 6 b= b= 0 0 oe 
WOnNIDWUICW-O 


Ht = 
Sg 


= 
iv 


Ri 
8 
8 


ad a 


00S432 
001142 


173452 


BESRESRRIES 


5 
z 


ene ee ee a 


02 


_ sEXIT 


°¥% e 
*#TEST 1 INPUT OR OUTPUT MODULE EXERCISER - 


; TYPE HEADER. 


sDON’T ALLOW TTY INTERRUPTS 
!EXPERT MODE? - 


3ASK “INPUT OR OUTPUT MODULE?” 


;WAIT FOR RESPONSE 
;PRINTER BUSY? 
;ECHO CHARACTER. 


;WAS tC TYPED? 
;IF SO GOTO: MONITR. 


;D10 HE T 

;1F S0- coro. out T ROUTINE 
;DID i. TYPE “ 

;IF NOT RETYPE QUESTION 


;*ROUTINE TO HANDLE INPUTTING FROM INPUT MODULE TO DISPLAY 


BIS K 
nove LOWE: 
BIC 177770, PACK 
1s 260, PACKI 
MOVB Ki, (3)4 
HOVE #240, (3)+ 
M0 #240, (3)4 
RTS P 
IMP START! 
;# 
TST1: - TYPE 
MHT I 
CLR aSTKS 
cS: TST EXPERT 
+6 
MI 
TYPE 
MQ 
CLR CHAR 
18: TSTB «= ASTKS 
2s: r3y8 TPS 
MOVE = 9S TKB, aSTPB 
“MOVB aerKe Ras 
BICB 8240, ATEMP 
CMPBséRTEMP, #15 
BEQ US 
CHPB 4sRTEMP, #3 
BNE .+6 
IMP TART 
MOVB RTENP, CHAR 
4S: TYPE 
ae 80, CHAR 
BEQ TsTio 
CMPB 0 sos’I, ~—s CHAR 
BNE cs 
INAR 
Tyee? aK 
f 
: V 
“BBs 
INITR 


BIT 1, 


;GET INPUT MODULE ADDR. 


IT1 SET THEN GOTO MONITR. 


iPUL IN O0seua DISPLAY RE TREGISTER TF 11/45. 
IF Bl 
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1033 O0S466 001767 BEQ 3$ ;NOT SET-THEN LOOP. 

ine 005470 000137 003366 JNP STARTI 

1o3 ;*#ROUTINE TO HANDLE OUTPUTTING FROM SWITCH REGISTER TO GUTPUT MODULE 
1 OOS474 104413 TST10: OUTAR ;GET OUTPUT MODULE ADDR. 

1039 peers 10441 te ;GET DELAY TIME (DEFAULT=3MS). 

1040 PS 

1 O44 a » MWK 

1 ic Ql 1 173426 MOV #100, 3$TKS sALLOW TTY INTERRUPTS 

io 005516 Than ea 173416 005420 158: MOV @SWR, JOUTADR ;SEND DATA FRO THE SWR TO OUTPUT MOD. 
rs 

048 


t4TEST 2 DAC CALIBRATION ROUTINE 


TST2: ryPe ; ; TYPE HEADER. 
IDAC ; INPUT DAC ADDR. 
ist BACAOR “ANY DACS PRESENT 
TYPE sMESSAGE “NO DAC ADDR. IN BUFFER. 


i TST2 
es: 
: TYPE 


4 tH if TOW GET VALUE OF SWR 
: a aTucOT?, 2s ; 





C 
Bpecey 73° = oy «Saboon, SR Feet ROR KEXT CH 
Bee Pye : BONE ast ° 
BR 1$ 
JMP —s STARTL 


;# 
s#TEST 3 DAC INTERACTION TEST 
; OUTPUTS TO 4 CHANNELS OF DAC THAT ARE “OUT OF PHASE” 


PREBRe Ba ol san oe Creo ROMO S 


g0sb22 104400 TST3: TYPE ; TYPE HEADER. 
pares al T ADDRESS 
Spee Se 013244 pee DACADR BAC SENT? 
001004 1S 
1 : ’ ;NO-MESSAGE "NO DAC ADDR. IN BUFFER” 
O05 1034 MNDA 
4 137 005622 IMP. TST 
DOSbH6 o0s009 1S: CLR: RO 
é By Qos Dossed 2s HOV” - ROAADAC SEND WORD TO DAC 
a te go 
087 BR zy 
oes Cts 


i ee es os = = 


102 
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1088 OOS&EE 000137 003366 IMP START 
1 % 
108s sATEST 4 COUNTER E TEST 
1 TEST 1 TO 16 MODUL 
1094 3% 
1095 
its frees ag TST4: TYPE TYPE HEADER. 
1 74 MHT4 
1 7% 104422 CNTAR sGET COUNTER MODULE ADDRS. 
1099 005700 013737 001554 o01S66 FRYO, FREQ 
1109 104400 021402 TYPE, MWK 
tips 005712 012700 013204 TSTYL1: MOV #CNTADR, RO GET LIST OF MODULES 
1103 005716 010037 O04746 MOV RO, PACK! 
1104 005710 TST (03 ;ANY ADORS. ENTERED? 
tite ve we parr BPE Tonae “NO ADDRS ENTERED” 
tite 005732 ob0137 bosere JMP tsT4 ce! 7 
1109 005736 013700 004746 TSTYL: MOV PACK! RO 
1110 005742 heed 013244 CMP RO, #OACADR sDONE ALL COUNTERS? 
itis DOS7e8 Obse37 oo1100 1s ine 5 
tis Bere i Me | 
111% 005756 021063 ; 
tite BOETES | Breas? 001122 2s cy Ht gt ae T OF C 
tits Spas ee bac BEQ ty ' : Tee ERO IF no ABER ENTERED. 
1118 005770 010037 O04746 MOV RO,PACKL 
1120 F | 
3 1181 : #TEST THAT THE COUNTER MODULE UNDER TEST CAN BE ADDRESSED 
1123 ‘ 
1124 005774 012737 005774 001106 TSTYA: MOV 8TSTYA,SLPADR ;SET FOR , ITERATIONS. 
112s D600 O1 077777 aye MOV $7277 aBBDEOR : No’ BATTEN 
11 10 O1 173106 001126 MOV QSBDADR,SBDDAT GET IT BACK 
ie? 006016 001001 BNE TSTYAL IF NON-ZERO - WE GOT SOMETHING BACK. 
1129 008020 104011 ERROR 11 sCOULD NOT MAKE ANY DATA XFER 
1130 006022 O00004 TSTYAL: SCOPE 
1132 3 , 
1133 jATEST THAT COUNTER MODULE BITS 00 THRU 1S CAN BE SET AND CLEARED 
ll , : 
tis 012737 000001 013042 ‘TSTYB: MOV #1, RTEMP ;SET “GOOD DATA” 
1137 10 O011 MOV #10,$T 
1138 1 001106 1S: MOV i ;SET FOR ITERATIONS 
11 1 1 0011 MOV. R T ree 
1140 OL 001124 173040 MOV SGDDAT, aSBDADR ;SEND PATTERN TO COUNTER MODULE. 
114 1 17034 01126 MOV T iE IT BACK. 
ee: bea? ll 11 CMP ; T $DATA-SENT=DATA RECEIVED? 
1143 14 BEQ 
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jATEST TO SEE IF COUNTER INITIALIZES PROPER_Y--PART 1 
; 


BBVFR LOCH BBS Lore Owe ou eos 


ICAB. INITIALIZE THE COMMON 
1145 006100 10401 | ERROR 12 -NO - REPORT ERROR 
is 008102 About BR i * LOOP 
1148 006104 043777 001124 173010 2S: BIC SGDDAT,3SBDADR ;TRY CLEARING BIT. 
1149 0061 7737 173004 001126 MOV SSEDAOR, SEDDAT $ID TS IT CLEAR? 
1150 1 14 BEQ 3 
1151 0061 001124 CLR SGDDAT 
11be 006126 104012 ERR 
ize Doe ae ObeL37 013042 3S: PE ntene SET TO NEXT 
Use 136 1 Bek 1$ ONTINUE ts FtNe IF ALL BITS NOT DONE. 
1158 3% | 
ll °¥TEST THAT THE COUNTER MODULE CAN COUNT THRU 
1123 get STATE 
He of = 
| 1163 0061440 0. 14 13082 TeT¥C: Mov eCNTPAT RTEMP  ;GET . OF PATTERNS 
us H : 
116s Boeten pista 146 Bott MOV a0, grate , : 
1167 006162 017777 OO46SY 172732 MOV DRTEMP,ISBDADR ;SEND PATTERN. 
HES GBI GET GRE couiey Ye, soa 
1134 ppesrs piesa 1124 INC , 
1171 006206 005237 4§: INC RTEMP1 sWATCH TO SEE IF COUNTER COUNTS. 
11 Oobe12 ns 4 BEd IF NO COUNT BY OVERFLOW-ERROR! 
il 14 bah 72702 001126 
1174 O0b222 087737 004614 001126 CMP JRTEMP, $BDDAT 
1175 006230 001766 BEQ 
1176 O06232 023737 001124 001126 CMP S$GDDAT , SBDDAT 
tt 006240 001401 BEQ 
il 104013 S$ ERROR 13 
11 ppesag 000004 SCOPE 
ee a a oe 
ii 006262 O39 1 BLT ‘ 
11 3% 
11 
tI 
11 4 012737 000010 091160 TST4D: MOV #10, STIME 

1186 poeste piesa? ot a aie’ SLPABR 

1191 006300 005077 172616 aSBHADR 

1192 006304 104424 ihe 

tl 104417 AY 

11 10 005037 001124 CLR $GDDAT 

1195 006314 017737 172602 o01126 JSBDADR, SBDDAT 

it 006322 001401 ! Be 2s 

i 006324 104025 ERROR 25 

1200 006326 oc00004 2S: SCOPE 





02 


MAINDEC-11-D2ICA-B MACY11 27(732) el 15:53 PAGE 24 
DZICAB.Pil INITIALIZE COMMON TAG 


3% 
:#TEST THAT THE COUNTER INITIALIZES PROPERLY PART 2 
© 
1 00001 1160 TSTYE: MOV #10, STIMES ;SET ITERATION COUNT 
pppase pistes eases ppt tee HOV 415, SLPADR -SET LOOP ADDRESS. 
172544 1S: MOV #177777, aSBDADR ;SET THE COUNTER. 


NOP 
817797 172534 00112 MOV aseoAor,seo0aT READ COUNTER 
001401 BEQ aS 


194020 ERROR 20 
000904 : SCOPE 


S TEST THAT THE COUNTER _HAS NO 
;*#INTERRUPTS POSTED ON THE ae NOR ANY GENERIC CODE 





L0e 
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ies 
1 
1 
1225 
lee 
1227 
1228 
re 
tay 
1 
is 
1235 05777 173212 TST4UF: TSTB - @ICSR ANY INTERRUPTS POSTED? 
a 006402 100001 BPL 1§ 
te 006404 104021 ERROR 21 ;ILLEGAL INTERRUPT ON FCS: BUS 
1240 006408 000004 1S: SCOPE . 
1 410 Ol 436 1 #2$, JICSVT sSET FOR INTERRUPT 
15 popu pierre at tf 3006 NOV Hdd ayeoR :SET ARINT + INT ENABLE 
1244 006424 005037 177776 CLR PS 
ies 006430 o00240 NOP 
15u 006432 104022 ERROR 22 FATAL ERROR - ICS DID NOT INTERRUPT 
1248 006434 booed BR 3$ 
1e30 ;ICS INTERRUPTS TO HERE 
4 7 : MOV AR, Bose AR. 
Hess GBSIG QUIZ? 73154 coLizs 28: App,» ALCASEOORT AE Pern 
1254 OO6446 O01 000001 173140 MOV #1, 91CSR 
a ane af Su 
155? that 042737 600366 conten ie #360 T IGNORE FILE BOX ADDR 
1259 OO6475 001126 TST soon =NO OTHER . OR GEN BITS 
1260 1401 Q *SHOULD SHOW UP 
liebe 006504 104023 ERROR 23 
1268 006506 O00004 3S: SCOPE 
‘126 4#TEST THAT THE COUNTER MODULE WILL INTERRUPT ON OVERFLOW. 
1268 #0N INTERRUPT CHECK ADDR AND GENERIC CODE, HALT ON OVERFLOW. 
iF j HCHECK RIF EFFECT ON MODULE 
1271 ‘ 
eve 906510 012777 006576 173102 TST4G: Mov aTST¥GI ,SICSVT ;SET UP FOR Ics INTERRUPT. 
era 5155 37 0065 soit oe MOV t7gT4eL SLPAOR eet EAR THERATIONS. ‘ 
1276 532 012737 O00340 177776 TSTYGL: MOV #340, PS sDON’T ALLOW INTERRUPTS. 
1277 006540 012777 000004 173046 MOV #4, JICSR ENABLE ICS TO INTERRU°T WHEN READY. 
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IO? 177777 | 172346 HY ay #177777, QSBDADR ; BET oY ones TO ALL ONES. 
1777768 ti as PS ‘ALLOW INTERRUPTS. 


S33 i 


GDeses 

1 

i 

Eey 1730204 is R JICSR 

iss a 1 ( CLR 14 REPORT ERROR - COUNTER MODULE DION’T INTR. 
1284 006 104424 INTTR 

1 006574 000457 TSTHGE sLOOP. 

1 ";#RECEIVE ICS INTERRUPT HERE 

1 006576 912708 001100 TST4GI: MOV 1100, SP RESET THE STACK POINTER. 

7 1 173010 001126 MOV StCaR’ SBDDAT  ;GET ADDR & GENERIC CODE. 

1 10 ll22 001124 MOV : : REAL ADDR. 

1 _ROR T FORM . AS IT WOULD LOOK IN 
1 14 1 001125 BICB a- 1 ,SCDDAT#1 : ICAR. : 

1294 006630 005077 172760 CLR aIc 

isee Bogeag 0s3757 a6 

i 40 37 001124 S 3400, $GDDAT ;ADD GENERIC CODE. 

1 OOGE4S 001124 001126 CMP SGDDAT, SBDDAT j CHECK ADDR. + GEN. CODE. 

iB 006654 . 001403 BEQ 1S 

1 104015 7 RROR 15 ADDR OR GENERIC CODE INCORRECT. 
1301 neta tates FRroR 

1308 006662 o00424 | BR TSTYGE sLOOP. 

1304 OD6664 104417 1S: DELAY DELAY 40 MS. 

1305 OO6666 001124 CLR SGDDAT 
_ 1306 006672 017737 172224 001126 MOV JSBDADR, SBDDAT 

1307 006700 001 BEQ 2s 

Bis 008702 104016 ERROR 16 sCOUNTER MODULE DIDN’T HALT ON OVERFLOW. 
. 1310 006704 000413 BR TSTYGE *LOOP. 

131 706 1 172700 2%: B #1,2IC ' sSET RIF BIT IN ICS-1 

1315 pees oper ee ea BIS SeADADR j INITIATE IF ON COUNTER MODULE. 
tai Wee iad 172666 Ne CSR ANY INTR. NDING ON Ics BUS? 
; 131g Ope eSE 100002 BP. oueore  ENO-THEN L 

1318 006730 104017 ERROR 17 RIF DIDN’T CLEAR INTERRUPT FLAG 
1333 nied i575 1 172652 TSTYCE ae #1,9IC 

1321 ‘Boerie 005777 reste) * TST SbapAGR 

1 bose? SCOPE , 

Le 
Li jaTEST TO SEE IF RESET CLEARS INTERRUPT FLAG ON COUNTER 
1 "? a9 bcs 

1328 006750 012737 OO00D010 001160 TST4H: MOV 419, STIMES 

1329 006756 12777 177777 172136 1S: MOV oh: ADR ;START COUNTER COUNTING 

1330 06764 e732 006756 0601106 MOV #1 

1335 ooe774 | towed Ort iSreren Ihre) 

135 e757 172612 wh 3ICSR : NTERRUPY pheteae 


& 
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OZICAB.P INITIALIZE THE COMMON TAG 
007002 100001 BPL +) 
007004 104024 ERROR 24 ;INIT FAILED TO CLEAR INTR. FLAG 
j TSTHL 
He ARG ERED? cose 
1 007014 CNTPAT: O | TERNS USED BY TSTYC TO 
1 007016 ; + OETERNI 4 COUNTER HOOULE 
i B07 0et } > CAN COUN HRU EACH STA e 
aS 
1 
1 
1 


CNTPAE: 0 


3% . 
;#TEST S A/D LOGIC TEST 


ccna cesicadeeeicenaceteel 


bao b> 6 Hh 2 Gs Bs bs Bs fs he Ps 0 bs Bho et bt be 0 2 ph po et Ft = 0 Pmt he Pen Pn Ff Fs hee Pen hs pee 


+ 
’ 
00706e ooconn ADCSR: | ;ADOR OF ADOS UNDER TEST © 
4 ; TSTS: na TYPE HEADER. 
: ADLOGL: MOV #ADLOGE, -(6) ee oe pODR. 
Bo7076 tOn408 Boy abe | * TYPE, ‘ 
1 13737 013246 007062 ADLOG: MOV ;#GET AOOS’S ADDR. 
i te 172026 IS #100, SSTKS 
4 06 #i$ 
1 130 a 4 ene SASPRTP Ra : sHGET PATTERN POINTERS. 
353 186 1 ie 1777 1S HOY es iH NO ORTAT oar SENT 
1 i ll MOV SR, ee 
156 001001 BNE 2s s#IF DATA PRESENT GO AHEAD 
007160 104001 : ERROR 1 S#ERROR “COULD NOT SEND /RECEIVE DATA” 
;#FROM ADDS 
007162 00004 2s: SCOPE 


B03 
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he 
oo 
an a 
ws 
e@-e- 


SERIE TIE i 


:#BASIC “BIT BANG” OF AOOS 
is to rPaTfgnn Yo ROESR. 
hse IO 


;#REPORT ERROR: “CSF READ/WRITE ERROR” 
; #LOOP 
;#UPOATE PAT POINTERS 
jepove BLL Parte 
;#IF NOT-CONTINUE REXT PATTERN. 
;*WILL CONVERTING SET AND THEN CLEAR? 


1 a ;#SET CONVERT,READ CSR 
$cDbA » GROCER ;#SEND TO ADCSR 
Scobey Ss0DRt sate CONVERT BIT SET? 


;#ERROR: “CONVERT BIT FAILED TO SET” 


0 - 0--0-~ 0 0 -- 0-< © +6 +0 6-- 0-9 <-9~— 9-06 « 


ADLOGY 
FR16, FREQ ;#SET TO DELAY 16 MILLISEC. 


dAOCSR ;#DID CONVERT BIT CLEAR? 
1$+2 


4 ;#ERROR “CONVERT BIT FAILED TO CLEAR” 
aa s*#LOOP. | 
s*#NEXT TEST. 
:#ISSUE SYSTEM INITIALIZE 
;#CAN WE READ THE OBR WITH CSR BIT//CLEAR (READ BIT). 
: MOV 852770, JADCSR hora: CSR WITH 8 aut BUT READ CR BIT 
feo AS 


;#REPORT ERROR “CANNOT READ AOOS DATA 
; #REGISTE WITH READ BIT CLEARED.” 


;#WILL CONVERT DONE CAUSE INTERRUPT? “ 


#340 ¢ 
fo. be? Sycevr s#5ET onecTOR FOR INTER, 
vs Sle JADCSR s #804 hops? T0 CONVERT. 


¢ 













DZICAB 


145 
ivae 
1448 
1449 


1450 
1 

14 

1 
1454 








~~~ 





SSG EEASE OOD 





See 
~ao 


A | ema 
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13737 004380 001556 


O44 





172174 


172110 
172102 


NOY -ERIG,FREO © ;*ALLOW UP TO 16 MILLI SEC FOR NTO. 

a | 

ERROR : s*REPORT ERROR “ACOS FAILED TO-INTER. AT 
ADLEL R ICSR , 

SCOPE 

BR ADLOGS 

s#CHECK INTR. ADDR. IN ICAR+GENERIC CODE 
ADLOG?:. popsre ;#AOOS INTR TO HERE RESET SP. 

V SICAR, SBDDAT  :#GET ADDR. AND GEN CODE 

MOV ADCSR’S$GDOAT =; #FORM G000 ADDR. 

BIC #177000, $GDDAT 

BI es SCODAT ;#ADD GENERIC CODE 

cn P #15 ADDR + GENERIC CODE Ok? 

ERROR 7 af ;#REPORT ERROR “AOOS ADDR. OR GENERIC 

i ‘ 
7 3#CODE INCORRECT. 
BR ADLEL : 
S#CHECK TO SEE IF RIF CLEARS INTR FLAG ON AOS 
: 8 T 

ck we 

MOV 81S, JICSVT eeu TNTERRUT vecroRs: 

t PS ALLOW INTERRUPTS 

DELAY : 

BR ADLEL "- EXIT A/D TESTS. - | 
1S: POPSP2 #RESET SP 

ERROR 10 ORT ERROR” RIF DID NOT CLEAR INTR. 

saneF9 N AdOS”. 

BR ADLEL 

{aa00s DUAL ADDRESSING TEST 
ADLOGS: MOV #25, SLPADR 

CLR SET FIRST ADOR. 

BIS x SBDADR 

V Ice RTEMP ;FIX STOP ADOR. 
MP 

1$: ADD 82, $BDADR sUPDATE ADDR. 

es mpc *DONE ALL ADORS? 

fe »ADCSR =; SAME ADDR AS ADDS UNDER TEST? 
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_ 


;SEND DATA TO A/D. 





DO3 
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1502 007624 tee 004100 171260 —. #4100,d$BDADR ;DUAL ADDR. READ ERROR? 
1001 BNE 3$ . : 


26. SDUAL ADDR. READ ERROR 


e200, RSBDAOR sCHECK FOR WRITE ERROR 
gs ; ) 


27 ;DUAL ADDR. WRITE ERROR 


_ F 


ee ee od 
Oo 


i$ 
PC 


WUNUTUNUT UU 
0 D0 0 > + 0 op — HP 
600 “ICU £ LIT 


s#END OF A/D TESTS | 
: INC sPpASS ; 

TYPE ;#THE “END” 
;*RETURN TO MONITOR. 


1 
1 
1 
i 
1 
1 
1 
b 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
BS 
bf 
1 


SER TERe Sooo Res 


JMP START 


n 
& 


st kta 
pRTEST & A/D CALIBRATION TEST 


TYPE ; TYPE HEADER. 
MHT6 
ADAR 


rE § at 


QUBR 
;18CA AUDO! CAL 


CR 
| SSSI ai 
i AGES 19 Ma ia 


ST 
BRAUN UMA 
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1558 007764 052777 000100 171152 TSCAA: BIS #100, 3STKS ‘ALLOW TTY INTERRUPT 
1559 re 013246 OO70b2 - MOV ADADR, ADCSR y 
lees 100Ck 13 Speaet 171120 18 aT te CK THE SWITCH REGISTER 
1565 bi 029 eae ‘ EQ i EO RETURN TO SoNT oR 
i ? i $ praeae JSR 3 ROVER START RSION 
ies 5 
tape BibRSS Besa | yoy SABC SRY So !GET RE nye 
1569 01 010534 ISR PC PET? ‘RIGHT JUSTIFY 
1570 biSoae 001140 BIT e000, DISPLAY OR TYPE DATA? 
1571 19080 101 BNE CAL : TYPE IT 
1258 10054 3737 001600 001576 MP FR1120, FRI 
1574 r 14 Q 2s 
l 10064 RESET 
1576 010066 000005 RESET 
E59 He inn RESET 
ie ot 000733 ween TBCAA 
tees rt : : ll epee CRLF 
: ate ithe 010146 Posi SR x2 CALIT ; CONVERT DATA TO BINARY 
1 Bat te ren 3 BELA: ‘ sLET TTY SETTLE DOWN. 
1586 10116 104400 meacn 
V R, % GET DATA 
ie Eine ow UR RP 
OO46 » 7 (SP) $8 F T 
123 Bibs ode POC = $3 RAYE Pe OcTAL PROS TCALL DIGITS) 
1593 010136 104400 TYPE 
1594 010140 oT 
iss state Y rece 
1 010146 005737 013250 CALIT: TST BIPOL 
1598 010152 001406 BEQSté«3S;' 
15 101 007777 MP #7777 ,RO 
teor Bioles 1004 as 
1602 010164 MPOVFL 
1693 aa peace? a RETURN A 
160s oi61 004000 ¢ CMP #4000, “0 sROSTINE TO CONVERT BINARY 
74 rat ie BNE 18 REHD FROM A/D BUFFER TO SIX 
ie : ae TYPE PLACE DECIMAL VOLTAGE 
o208 RT PC 
1616 ie 022700 003777 1S: one 83777, “0 sPOSITIVE OR NEGATIVE 
161 a 1 
115 Bissis Asuues MPOVFL 


FOS 
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pies 
bites 


010234 


z@ 
= 
w 
33 
_e 
ee 


;CLEAR STORAGE AREA 
;DETERMINE IF 
;POSITIVE OR 


010516 2s: 
010532 
010516 

1 


pias 


004000 


~ 
FOTOS 

w * Ne 
$4355 


ae 


;NEGATIVE VOLTAGE 


2 


e 
3 


greens 


;IF MINUS TYPE “-” 


4 


l= 
ATA 
== 
VT = 


. 
¢ 


On 
~~ 
4 
ha 


af POSITIVE 
;TYPE “+”. 


Qo0o 
b= b= b= b-2 0 = b= bb fh b= ph fh = pe pe pe 


a 


a8 
“ 
t~ 


;D0 OCTAL’ TO | 
sDECIMAL CONVERSIONS | 
sBY METHOD OF INCREMENTING 


0 0 > 02 0 0 92 fo hm 92 Ba ne pe fn fo fo Po po 


oo 
fp me 
Se 
—e 
o£ 


am 
Ran 


+SBAAD 
ES. 


RPE SE 


-l\= 
al 
av 


;DECIMAL COUNTER AND 


x 
tf 


BES 


sDECREMENTING OCTAL DATA 
;UNTIL ZERO 


- 
x 
G 


eesaseh 


reise 
gOS RRs AEE 


;IF DECIMAL COUNTER = 12 (OCTAL) 


£oO 


;CLEAR IT ae INCREMENT 
sNEXT COUNT: : 


; TYPE DECIMAL 


eRe ee CET DECTAAL, VALUE FOR DATA 


sCOMPUTED FROM ACOS 


3 
i 
2 
635 
636 0103le 
1639 
1640 
164 
16 
- 164. 
1644 
cae 
is 
1648 
1649 
1650 
1 
1 
1653 
1654 
1655 
1656 
657 


ana 
== 92 be 
R 
tm 


OOOOOOOOOOOOOOOONOOOOO0000000000 


F 


PEPPERELL 


-EEaREApaRTRBS 
ae 


;ADD THESE VALUES TOGETHER 
;HOLDIT CONTAINS VALUES FOR DATA 


jBOBARRES? GRAN gE SERIE R GENRES Gd ORLA! 


§2 Fh fb = Bs ham bs Bm bs fs Be he Be fs sO Ph be Oe ah be Phe RO 


SEanntnee 


R 
is 
Www 
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1699 


NNN 


DOSES SR EERES 


e- 
™“ 
ot ok on oo 


~ 
~N“N 
~ 

NOW CWO 


171 


Pl 


MACY11 
INITIALIZE T 





Ic 
= = 
No 


oO 
i ol 
oO 


oO 
-— 


000 
00S 
000 
0Ce 
Oe 
003 
003 
001 
001 
000 
001 
000 
00S 
000 


oo 
ee 
BE 


B8 82 BE BF 


Bod 





13702 i a 


708 104000 


i ed 


B8 88 88 88 88 


Or 


G03 
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OMMON T 


888 8 


8 


BHI 

SUB 
CALITS: cre 

BR 


aochim: po0000 
Al: 000000 


Estias -BYTE 


-BYTE 


CALITS 
a2, : (3) BASED ON GAIN OF A/D 
anes %3 sAT TIME DATA WAS TAKEN - 
CALITS 
CALITE 
0,0,0,0,5 ;TABLE OF VOLTAGE REPRESENTATION 
0,0,0,5,2 ;OF BINARY INPUT. - 
0,0,5,2,1 
0,5,2,6,0 
5,2,1,3,0 
3,6,5,1,0 is 

- 1,8.,7.0,0 
1,9.,3,0,0 
5,9.,1,0,0 
8..9.,0,0,0 
9.,4,0,0,0 
4,2,0,0,0 
bi ROUTINE TO RI 
“0 s JUSTIFY DATA B 
0 sROTATING IT 4 PLACE TO 
a *THE RIGHT 
$17, x 3TH T AMPLES 
s104000,%3 SAND ceNDS EHANNEL GAIN 


MAI 131 moon 7(732)_ 20-SEP-76 15:53 PAGE 34 
021 INITIALIZE oe THe é Tabs 


O662 010277 176174 


pee8 Op eee 176170 
176162 


Oo0000 
B= > Bae hw pe 


E 


000137 003366 


SRae 
a 


a3 
ge 
i 


Sisk 


2 
-— 
a 


d 


ae 
Z 


neers Ses 
ae 
Pore 


a eee ee ee ee ee er or Dae 2 Pane fe Bt Pe be Om mh +O Bm > Pe Be Hw 


sgsoiessensusghasicadsasiacaacgseecaceaaesnacasenel 


ane 
13006 
000001 
a 
ie 
1 12 1 
1014 1 
1 12001 
{ 1 13006 
1030 1365 
1032 014037 013006 
011036 005737 001652 


eee eee 


b10776 


CONVED: 


TST?: 


22s: 


els: 


‘238: 


MOV 
TST 
BMI 


Rts 


JMP 


aAbcsR 


HO3 


@ADCSR ;CONVERT AND READ BITS TO ADUOL 


;T0 START CONVERSION 
;AND WAIT FOR CONVERSION COMPLETE 


jeTEST 7, Rou 1 iw TO MANUALLY TAKE SAMPLES, COMPARE RESULTS 
j #CALL=JNP S18 FROM MONITOR 


; TYPE HEADER 
F TROT PRES™ 
pence RY DLA CBDTE FO co 
EXER 
: ;ASK FOR GAIN 
av) IN, 108 ge2 
99$ : 
225 
;GET GAIN 
GL IST, RO Deka OF EGA GAINS. 
2i$ 
‘ain H “PED IS KNOWN 
, p iRERSK GhesT10 GAIN T. 
#170000, R1 >MASK OUT RE Sain ae 
R1, GAIN GAIN HE T MATCH ONE IN GAIN LIST? 
20$ *NO-CHECK NEXT IN LIST. 
-(0), GAIN i VES REPLACE TYPED GAIN BY REAL GAIN. 
EXPERT 


I03 
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DZICAB.Pil 


;CHAN WITHIN LEGAL SOUNDS? 


sNO-THEN TELL HIM 


;ASK FOR EXPECTED AVERAGE. 


;ASK FOR CHANS: 
;GET CHANS 
;GET AVERAGE. 
LL 
ION 


SCHAN. Set? 


ytiossssgse seusdanttentte venut label tanettsteat® nate 


. eo oF oT) 
an ee A 
i = es 3 s 
a 6 § &R a OS a § 
aa aq oa oo oo oo ao 
a 
8 a a: : 8 
8 so een end o <9 akan ot 8 
i=] oo i=} —t 


a wees: 


ES SRRRMSOGURRERR RatriaecceceueNemtmens es 


PF OO dN Oh FO dd gg Oh dO reg a Oh de 
od nd) ng ed Gg gd Od OE hd hw hd hd i a tet ees tm eet 
2000000000000000 NNDNION1DDAOIBOVWOOIMGIHMMNBHV00000 


PE ERRE EERE EER ERE Sania Sites eeneseanaaan uaa 


Re eee Ke eee tee See Ree Ree loon eee Rae fee eee een ree Dee Keen Rare ee eee ene ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee rT) 





JO3 
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MACYL1 27(732) 


MAINDEC-11-D2ICA-B 


OZICAB.P11 


;ASK FOR TOLERANCE 

;TYPE “REPEAT” 

TAKE CONVERSIONS 

TAKE AVERAGES 

;SUB PART TO SET UP DELAY BASEDON 
;NUMBER OF CHANNELLS WERE SAMPLING. 


’ 
ine 256 SAMPLES OF AL CHANNELS SPECIFIED 


ag e F GHEE woe, 
rin Fea a cuved uf , Se be 
pote: xq Eellye GoME EE, 29 gle as 


TI 
= 


abosmemeltents nesetstPruaeeeenestds <2 epseaetxD 


3 3 8 $ rs : 3 
ouy Ro z, = ¢ z, 2 3 
saz a OS 2 83 : a oe 
a BBS 425 BINS = th aene 8 
Be ee ee 


Se 


SAMEMORMNN NSS Ser see OTE se ee Ss Same ibibteie ieee 


hand wd ended ond nde bond md Oa aa aaa ett tt et te fe oem bee hee hem ee bam hem hem bemed 
am deat oem Dostana beast ieee Dan oan pet Joan Kame, bam eam eam Kamm Seam Lem, an Lan Ratt em Lon Lae, hes kon on oe ee re T_T) Sen eam bam vam am kam, bem ham am had 
2QOOOW9OOOHO OVO WOWODWOOO900O0000000000000 ONEMOO00000 


Bib bab b esto cttud Mua Gaenae eae ene enowasend Hae han tae mane 


Hh Oh Od nd OH wd Oh hh eee sensor th hemhard  h ese ems esenhd oer eg hetong ondansand Soe Kem ham hem om em Kem keen hem ham! 


. ns 
RE Be 
SSeS ERE 


as 


G2 Pe B= 9-H §--< Bs fe He he 
£O 


Been canes ae 


0.0.0.0.000.00W0 
p= Fb = hb b= b> po pe bm 
O00 NOU! .£ WTO 


Sie Rh 


—ee 
Coco 


OOOOOOOOOOOO000000000 
fae Pa Fe Poe pat fh -2 Bo Bs Po fis Pao FB 2 hm has fe hs bo pe pe 


9 2 bs 0-8 Be Pt b= = Bo bs he Hs Os Fh Bb hm bo b= fb he ho he Ph fe Pe = bb fh sh Bh he Po pee 


PEEPS ESE RP Tiana aclu yuki 


KO3 


BPL 2g 
ooo 000001 001566 MOV #1, FREQ 
1 77400 013024 2$: V #65 SAMCNT sSET SANPL COUNT. 
12701 NV #BUFFER, RI : SET ORAGE . 
13 f 13012 013004 3$: HOV CHANS , CHAN GET STARTING CHANNEL 
eee 013004 013002 4S: ot CHAN, CHANL SET TO RIGHT JUSTIFY CHAN. 
1 ASL CHAN] ‘FIX TO LOAD INTO AID WORD. 
1 Rat HANI 
1 HANI 
006337 013002 CHAN] 
904737 011752 GOSUB  ,CONVT 10K CONVERSION. 
1 el MOV RO. (1)4 
913004 . + Te CHAN READY FOR NEXT CHAN. 
13004 013014 cr CHAN, CHAN ‘DONE ALL CHANNELLS 
005237 013024 INC SAMCNT ;DONE 256 SAMPLES? 
era AOv - SBUF 
12701 026636 MOV FER,R1 
RETURN 
; #ROUTINE TE For A A AID WORD FOR CONVERSIONS, START A CONVERSION, 
:4WAIT FOR NABLE READING OF THE ALD DBR. 
* ;#CALL=GOSUB, CONVT,RESULT FOUND IN RO,RIGHT JUSTIFIED 
013737 013006 013010 CONVT: MOV GAIN: ADWD ;SET GAIN IN WORD 
042737 013010 BIC 87777, 
0537 013002 013019 BIS CHAN! ‘ ADWD Sy ae 
737 104000 01301 8 #104000, ADWD T READ BIT, CONVERT BIT. 
013777 013010 175052 MOV ADWO, BABCSR T CONVERSION 
005777 175046 1S: Ist aR0CSR sWAIT FoR” CONVERS OH COMPLETE. 
ae 175040 CLR SADCSR sENABLE READING OF DBR. 
01 175034 MOV JADCSR, RO ?READ AID RESULTS PUT IN RO 
057 013250 TST BIPOL | 
14 BEQ 2 
ROR RO 
. 006000 ROR RO 
006000 ROR RO 
aie Ret 
RETURN 
006200 2s: ASR RO sRIGHT JUSTIFY, REMEMBERING SIGN. 
0062 ASR RO 3 
ASR RO 
_ ASR RO 
RETURN ; RETURN 


4 

; #AVERAG 

Her tH TH 4 ae N TIRE ALL, SPL pare fi FOR ful CHANNELS HAVE 
FFER FOR Gl 


iSSEOUENTIAL IN INTERLEAVED BUF {Sear TTSYEN BY. THE FOLLOWING FORMULA: 
HEN-EQUALS. THE NUNGER OF CHAN 


; #IS THE gy POINTER SET TO 5 Sar iniTinuty. 
; *CALL=GOSUB, RVERR ‘ 


. 


E, 
N’ON, AND RL 


& 


MAT 
DZ 


BBaS 


SPRTERES 


Sass 


TDR b= bt Bs ee 0 ot he Bs bs Pe hs hs FR fb fh Bs fo Be ho a bb f= f= f= bs bo he fo Fe fm Bw fe pe 


SESPR SAN Bee SER ee sa oll san 


Boone 


C 


FERRARA g 


“DZICA-B Ss MACY11 27(732) 
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tt p= 
b= to 


Mee Sister 013012 013004 AVERR: Hoy 
15588 1 - 013024 AVERRL: nov 
12109 oa 1 MOV 
He Seow ie 
12114 13042 CLR 
1eie0 Hig? 13035 Hoy 
Be ee 
012136 011137 013040 MOV 
! ie 013036 3 chp 
12150 it 013036 MOV 
12154 012137 013044 4S: MOV 
Oieléd 05737 013250 TS] 
pigtee 004000 013044 ADD 
bleeae ret alae 013034 ADD 
12206 1 013026 Abb 
Oleei2 005337 013024 DEC 
Ol2e216 001344 BNE 
bleeee 13 1% Te MOV 
6 Bi t CHP 
oleeie oneue? : if BLT 
Bisses essay Bishan Ot ae 
niee60 023737 013036 013044 CHP 
pieces poes4s 013030 BLT 
glee? 001415 tla a BEQ 
Bisens Gieces S00G tf 
012310 023737 013004 013014 CMP 
012316 003665 BLE 
Ol 000207 RETURN 
; ERROR 
gi2aee 104400 ERAVI: TYPE 
51535 Bpeaa BRePeR 
Oie339 ERAVe: T 
1 MREPFT 
Bisau0 DAees? Bi aode 18s: AR 
bi S3uq 0060 eed an 
12360 05 DEC 
Ibs Dieser pian oe 
le 1 ROR 
12364 005537 013034 ADC 
012370 005737 013250 TST 


LO3 .. 
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2g 

AVEXP, RTEMP1 
TOLER’ RTEMP1 
RTEMP! , RHIGH 


;SET TO FIRST CHAN. 
;1ST CHAN OFFSET 


;PUT CHAN OFFSET IN Rl. 


e 

: FER POINTER TO Rl. 

ier AAT Ee CONDITIONS bOR THIS CHAN. 
sFIND REAL HIGH VALUE. 


;FIND REAL LOW VALUE. 
;GET CURRENT SAMPLE. 
;ADD CONSTANT TO SAMPLE. 
;"BOOT” ADD ALL SAMPLES. 
;UPDATE TO LOOK _AT_NEXT CHAN SAMPLE 
; ALL SAMPLES PER THIS CHAN? 


=NO-DO NEXT SAMPLE. 
YES! SEE IF RHIGH OK: 


;NO-THEN RereRT ERROR. 
3 YES-OK-CHECK LOWEST READING. 


;NO-REPORT ERROR. 
iDOES OPERA OR WISH “FORCED” TYPEQUT? 
*SET TO DO NEXT CHAN-BUT 

it DONE ALL CHANS-EXIT- 

*OTHERWIZE LOOP. 


; TYPE “REPEATIBILITY ERROR” 


;TYPE “REPEATIBILITY FORCED TYPEOUT™ 
;FIND AVERAGE. 


;AVERAGE=TOTAL OF SAMPLES- 
;DIVIDED BY 256. 


03 
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012374 BNE .+10 
12376 004000 013034 ~~ #4000, AVTKN s SUBTRACT CONSTANT. 
ES iS Tyee YEE HEADER 
MREPT1 
12410 T CHAN b : 
bei 013746 013004 MOV CHAN, (SP) ss SAVE CHAN FOR TYPEOUT 
: 14 104401 I *:G0 TYPE=--OCTAL ASCII(ALL DIGITS) 
tee es 
1 I 013006 MOV GAIN, Re ;TYPE GAIN. 
12426 942702 . 170000 BIC #170000, R2 
1e432 TYPOCT Re 
ieiaa foasor Wypoc | Ror” ‘SP? + ROVE BE FOR TYPEQUT DIGITS) 
99 
tSuse {ouugo Wee 
12440 M2sP 
Olewie 013702 013036 MOV RLOW, R2 
Leg o4 170000 BIC #170000, Re 
01 TYPOCT R2 sTYPE LOWEST SAMPLE TAKEN. 
012452. 010246 V Re, -(SP) SAVE Re FOR TYPEOUT 
1 104801 TYP ::G0 TYPE--OCTAL ASCIICALL DIGITS) 
1 4 T i 
1 deecoy MesP 


BS RN 


O12462 013702 013034 MOV ——AVTKN, R2 
levee O¥e702 170000 IC #170000, Re 
1 YPOCT E AVERAGE OF SAMPLES TAKEN. 
O1e47e 010246 MOV. Re, =( SP) Seve Re FOR 
bear 1o44gL : ve $ SRO YTYBE-COCTAL ASCIICALL DIGITS) 
1 M2 
1 I 0 MOV —- RHIGH, Re 
He ie vee BB 
12512 , YPOCT Re sTYPE HIGHEST SANPLE TAKEN. 
Oles1e 10246 MOV R2,-(SP) F 
12518 iowa 1 Tye9C 1400. YPE--OCTALRSCIT (ALL DIGITS) 
1 ott MREPT2 
Wee Bia7a? 012034 913042 HOV” AVTKN,RTENP =; GET 
12530 162737 000005 013042 SUB MAKES POINT TO GET LOW POINT. 
:SET # 
1 1 013024 MOV SANCNT :SET # OF SAMPLES. 
12544 013701 O1 TOY ere Ti 
12554 CLR 
bee 013042 2s: CHP ' mee 
1 
158ee 1 0 3S: SANOFF , RL 
2061 012572 005337 013024 DEC —- SANCNT 
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2062 012576 001367 BNE 2s 
1 004737 012744 GOSUB AVTYP TYPE RLOW # OF F SHUPLES ate 
sped Biseis 5003 AfGGBO o1z024 us:  ‘fov fel Bont SET sambeE’ chonfoat! aub" 
sire] ieee 1 ait GET BUFFER POINTER 
O1see4 Bee 704 fag ADD car Ri by : 
2069 12630 .See13 013042 cs: “CMP (1+, , RTEMP sSAMPLE=COUNT POINTER? 
Oise ANE ORB 
1 OL 13026 6S: ADD SANOFF RI | 
blebHd 0053 13024 DEC SAMCNT ;CHECKED ALL SAMPLES? 
2074 012650 001367 BNE $ 
1 B74 GOSUB  .AVTYP ' ones SA S fT THIS POINT. 
oe ter 
e078 Olebes 1 BNE 4§ 
v 12666 CL Re iN d "ALL OVERSCALE POINTS. 
eel isere 1 013024 NOV #256 » SANCNT 
1 3 OO CHANL RL Rl 
2083 012706 022137 01304 7S: CMP tiie, RIENP 
2084 Ole7ie 003401 e 83 
eos t \ as CEMOFF, RI 
1 1 DE SAMCNT 
2088 Ol 001367 75 
it 012744 GO ,AVTYP 
1 Ol 1163 SCRLF 
1 137 012276 JMP AVERRN 
1 AVTYP: MOV Re -(SP) :PUT 
1 01 GOSUB g $070. "obra Bed ROUTINE. 
1 ADD 7. (SP) RID Seb tie ST.2 DIGITS 
1 ieee? 12764 MOV (SP)+, 1S TRING. 
; 1 : “ TYPE 
it e500 ¢ os sTYPE 2 SPACES. 
ie e 
1 RETURN 
3% 


j XPOINTERS USED BY TEST 7 REPEATIBILITY TEST 


1 : ferteges CURRENT CHANNELL 
INs | os N 


co ae 


SRepenes) «© ASpERNMazSnSNONES 


Ahh oho Hay F-= bs bo pa De be Be be fe po hs 


VERTOW-SBBVEREoD— 


Ce ee ee 





—_— oe - - = 


TTY 
TERS 





aoe ERROR IS REPORTED 


T 
T 


OF SAMPLES TAKEN 


CE Ser 
PEATIBIL 
RATOR EN 


i 


TGrest SAMPLE TAKEN 


;SECTION RESERVED FOR 


;IN INFORMATION 


SLMERE OPE 


ol 
Ho 


;# GAIN LIST 


.BYTE 0,C 


0 
;# 
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Sonmon 1 


2 


INITIALIZE 





INDES=32-D27C 
aaa 


“- 
of 


AY ; 


2 
—M INT — Ny 
SSSSSSSS_ 
EERaRaae 
$5555555— 
i 
3 
3: 
= OOOOVOOKOWOOVO00000 
£ Seegeneeeeeeeg: 


Sues 


Hsien 








Se han bes basen ban ban ben bab bas fan ban }en pas fen pen] 
OANOOIOOO00000000 


PUT MODULE ADDRESSES 


oeeeeeeeeeee © © 8e Oo 





Qno0000 


PEEEEE 


REA UAIA I ANUMA MOE FFF FF FF FF MAUR Bid ed Dead tet te 


ety dette putty Sey peat, Sea ah, hae, hae bak ba ae, hae bam, bam, ban ban, bat, ban, ban, bam, ban, bam ham bana }ony hod bon bambi bom, bam, $96 bam, bom hoe bos toe, oe bom bam bon, bom, bon, bon ban bon bom bon an bon ben ae em bet) 
PIMUIMITUTINUININININUNUTUTUICUNIQUCUTUCUCU CUCU CUCU CUCU CU CUCU CUCU CU CUCU CUCU CUCU CUCU cu CuCuCucuCuCuCuCcucuCunufuiudg 





U 
? 
o~* 


ae 
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zea 
| onan 
io 
Fi 
f- ba 
P< ps 


Natale 
o— 0— > bb 
DWIGIGIGIGIL 
S~w~eroe 
WASETG 


- #COUNTE 
cnTAOR: } 
WORD 


MODULE ADDRESSES 


3 


rurururururururururururururonifururururururururururo 
2O0O0OD0KO0000000 


0-2 b= 0-2 b=2 b-< b 2 + 0-2 0 — b= b= 6-2 9-0 fo b— F-0 ho 2 9-2 = § 2 0 hs fo ho 
BBIRR LON SSR VRR ESRB se 
ONOOOOVOOOOOO00000 D2OC000000O 


B= 0-4 = BD B= b= 0 — & = PF — 0 9 hp = pe Ps po ps 


= 
le 
14 
16 
ce 
3230 
ee 
3e40 000000 
3e42 
3244 


oO 
os 


irl: :0=BIPOLAR=1=UNI 
_s#TEMP STORAGE OF INPUT MCDULE DATA 


SIE RIEY 


rua 
WONOTU£Wl-O 


OOO OOOOOO00000000 


3% 
; ROUTINE TO INPUT INPUT MODULE ADDRESS. 


TST EXPERT 
BNE .46 


RARE 


its 
~ 


oo 
os 





MAINDEC-11-D2ICA-B 
’ INITIALI 


OZICAB.P11 


2 


OOKOO0N000000 


2 6 = > B— fH — Pp <9 pe 


eee & 


BESO RE RER ERA EEC ECONO UNCP S SON gaa DDI 


13322 


SRR EDOAS Aa 


0 P< Os FH Pe pe 


QO00000 


HIStE DORE SERORES TR 


ONNOOHOVOOOOO00K0000000 


QOdo00000000 
ee ee ee ee ee oo 
tala 

Oo 


CRBoeS 


ied 


QB 


000491 


Twit 


— 


ei 


a 


= 


oO 

t=) 
oe 
= 
- 
ee 


Bee 


a 


Nes 


001652 


013144 0 
000020 0 


001652 


013204 013534 
000020 013536 


—_— = eos — 


RINAL: 


ROUTA: 


ROUTAL: 


1§: 


RCNTA: 


RCNTAL: 


DOo4 
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AGS 


Mix % ;ASK OPERATOR “INPUT MODULE ADOR(S>)? 
NOV SINADR, RINAL 
fav 


16., | RINAL+2 
; +4 
Br RINA 
NOCT sCALL TO INPUT OCTAL ROUTINE 
INADR - . $ADOR To $7 ORE INPUT ADDRESS AT (VARIES). 
g , :NUMBER RODRESS ALLOWED. 
a. oe 
MOV « #INADR, RO ;NOW FORM REAL IC Ss. 
BIS. ICSMOD’ (0) >NORMAL=ICS bo (31008 ERCESS PATCHED 
aan BC. CKAOR AL S? 
os 18’ 0 fio T KON SNC. 
EXIT IF SO-EXIT 


TST EXPERT | 
: sASK OPERATOR “OUTPUT MODULE ADDRESSESS? 


MOPA : 
MOV SOUTADR, ROUTAL 
MOV  #16., ROUTAL+2 
BR +4 
ir ROUTA 
NOCT i x ;CALL TO INPUT OCTAL_ROUTINE 
oo ;ADOR TO STORE OUTPUT ADDRS. 
131. gun 
BEQ 


Bis emt : 


CMP Rs ee 


; ROUTINE TO INPUT COUNTER MODULE ADORS 


TST EXPERT 
re ‘ 205K QPERATOR FOR COUNTER MODULE © 
MOV BCNTADR, RCNTAL ’ ' 
HOV #l6., "RCNTAL+2 

RenTA 
iter ;GET THEM 
NTADR 










E04 
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DZICAB.P11 INITIALIZE THE COMMON TAGS 

2286 013536 lb. 

FE Ee ave | gee 
Q es 


1S: ICSMOD, (0) 


cal flee Biver Glssle is eee, 


MAINDEC-11-DZICA-8 
OZICAB.P11 


rey 


& BH PB -2 B= Fo 2 H+ Ho hs Pe Fo = Po & 2 pe 


NOUS WHO 


CSL ESESESESESESESED 
pvr 


8 
ro 
OOOO KOOOOOO0O000000 


PEG BARROS HEROS NODES 


: 


2347 


goes 
eae 


013566 
013870 


gS 


bs bbs Bb hm hs BB eb ba be he 


SAS NSS 


ssreemeeeen 


She BK 


as 
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Sle 


3 


1 


pa 
£58 


78 
a 


. 


001652 


sity 


014754 
1612 
13244 
015416 


0016S2 


paacdt 


014754 
1 
1 
O1S416 


O13e80 


013244 


013246 


014766 


RDACA: 


RDACI: 


1§: 


RADAL: 


1S: 


FOY 


TORAGE ADDRESS. 
OF WORDS THAT- 


BE 18 

EXIT | 

;# ai 
;#ROUTINE TO INPUT'DAC ADOR 
tSt EXPERT 

BNE . +6 

- TYPE 

MDAC 

“HOV BDACAOR, 1 

8] [+2 
BR. 44 

RDACA 
bee, 
1 
Fi ow 
DACADR 
MOV —- #DACADR,. RO 
JSR. PC, CKADR 
EXIT 
; SROUTINE TO INPUT AOOS ADDR 
tst EXPERT 
fe 
MADU 
MOV » RADAL 
MOV al RADA1+2 
ze . +4 
for 
ROROR 
TST — CHAR 
Ee Hono, conn 
MOV. SAGADR’ RO 
JSR PC, CKADR 
EXIT : 
-# 
_ INPUT OCTAL ROUTINE - 

SNM TO RAL SAHERE TO STORE NUMBERS 
jHNMI = NUMBER OF NUMBERS TO ACCEPT. 
5 : 

: pre ; TYPE a”? 
MOV: -9(6), RI PICK UP S 
ADD = - #2 (6 PICK UP ® 
Moy 86th), NI 


, 
NCi 31S THE MAX # TO BE INPUTED. 
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ICAB.P11 
4 | #2 a OLON FLAG 
3350 ere aR INCFLG GL EAR rt ame ‘ ED EkA FLAG. 
1 014000 CLR RTEMP “POINT T& TEMP STORAGE AREA. 
352 14004 — MOV 8OUTS, RO “CLEAR THE AREA. 
1 i 208: CLR (0)+ 
pe a ls 
1 MOV - 8OUTS,RO sPOINT TO AREA AGAIN. 
1 ot NINC CLEAR CHAR. COUNT 
358 1 18: CLR NIN >CLEAR NUMBER TO BE FORMED 
14g34 CLR CHARC ;INPUTED CHAR. C 
360 : 2s: 1378 _ BSTKS : Vy pers, 
sae Oise MOVB eixe _ CHAR ies "HEN CHAR. we 
2353 014054 BIC #177600, ¢ *STRIP_CHAR PARITY BIT - IF ANY. 
gab4 O140be CMP «CHAR, #177 :WAS IT A RuBoLT? 
1 BNE . .46 *NO = CONTINUE 
14072 HP 10s YE ‘= TYPE "9" = REINTIALIZE. 
es? 34 14078 STB >PRINTER BUSY? 7 ; 
141 BPL “4 ;YES - THEN WAIT TILL NOT 
368 g14109 MOV CHAR, @STPB ;NO - ECHO ics pat 
14ile CMP CHAR; 1S *CHAR. = <CR>? 
2371 014120 BEQ 3$ - YES = THEN TERMINATE INPUT. - 
Ee a13155 cH CHAR, #3 WAS IT A tC? 
141 IMP seFLLoc sIF YES GOTO MONITR. 
2375 O11 3 CMP CHAR, #14 . CHAR = "tL"? 
5378 014146 iPeer * sYES = THEN SET LINEPRINTER MODE. 
3378 grt CMPB #12, CHAR *CHAR = "tJ"? :; 
2380 ist J CONNTR sYES - THEN SET JOINED MODE. 
e381 Oi4166 CMPB = #4, CHAR CHAR = “#D"? 
o383 O1a178 aN fe sYES - GET SECOUNDARY DELAY. 
2385 o14si0 SNe o me ica: 
S3eo btuste e: See Chae = INer et MODE. 
1426 MPB Hi , #16 *CHAR = “tN™? 
2389 O1Neee IMP NOSET YES. SEI NOVICE MODE 
2390 0142 CMP CHAR, 8°: *CHAR = COLON? 
2391 014240 BEQ 4§ YES SET FOR “THROUGH” ENTRY. 
B39 O14 cH CHAR, e’, CHAR = A COMMA? 
osm alee CMP CHAR, #60 ;CHAR TYPED 7 ASCIZO? 
239% Ol4e62 ace il NO - REPORT ERROR. 
£3 142Gb CHP CHAR, #67 sCHAR TYPED <ASCIZ 7? 
ots Tne iis. tec INCREMENT CHAR. C 
bie O10 ant NIN TERT sustiey WTREENT NIGGER: 
1431 ROL NIN 
2404 014316 ROL NIN 





04 
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2405 O1N322 014762 - INC CHARC coms s INCRENENT CHAR COUNT : 
ae boost re BIE #260, CHAR setRHp keHe® NHPUTED 
18 14 14 BIS CHAR, NIN sADD. TO CURRENT NUMBER. 
o 143 7 3S: ee torus ies tae « B ,COLON FLAG SET? 
ie 14 014766 ed NINC, NINCL 30 B WE MORE NUMBERS THAN ALLOWED? 
13 914 BGT gS ;1F SQ - REPORT ERROR. 
14 O14 ST TEMP ANY CHAR. TYPED 
ie 14396 014764 cS sie eee ee 
CLR CHAR’ 
at tio 9g: MOV NIN (0)+ s STORE NUMBER. 
gul3 14414 13042 MOV NINCL, RTEMP >FIX NUMBER INPUTED COUNT / 
14422 IE 14766 SUB NINC, INCL $FIX EXACT COUNT. / 
14430 C NINCI is al 
ee tas bi3700 | BOUTS, RO SET TO. READ BACK NUMBERS 
14440 Ol 21$: MOV (0)+, t1)¢ *STORE IN CORRECT AREA 
Se Biddue Sor pre RON otbe NSTR 
2 O144SG 010176 OO0000 MOV Ri, a(6) FIX CALL ON ADDR. OF NUMBERS TO INPUT. 
a O1HHey 334 013042 225: DEC RT MP 3 DONE ALL NUMBERS. 
29 eh pooo02 ADD Be (6) YES - UPDATE SP 
30 6 sole 014766 o00000 MOV NINC1, (6) as ON CALL # OF NUMBERS TO INPUT 
3} oles 16 gpo00e Nee #2, (6) FIX SP. 
eis tWeps EXIT’ . sEXIT. 
34 
2435 O14SO 013737 O14756 014760 4S: Nov NIN, NINJ, sENTER HERE, WHEN COLON TYPED. STORE CURRENT #. 
Suse Biueed Bor 1s oe OCS ite SET UNKNOWN TNPUT (2 COLONS! } 
33 O1Nbe2 012737 000001 001630 HOY #1, INCFLG ;SET_COLON ’ 
piesa 162737 Spee 014760 SS: Sus. iB, NINL  3COME NeRE ON COLON FLAG SET + ANOTHER # FORMED. 
gist Gooo0e 014760 6&5: ADD 42 NIN1 § ;UPDATE FORMER NUMBER. 
14550 ee 14764 014766 CHP NIAC, NINCL : R BUFFER AREA? 
pan 14 1 014760 MOV NINI,  (0)+ NO - STORE NUMBER 
gis 14564 005237 14764 INC NINC : COUNT. 
14570 023737 014756 014760 CMP NIN, NINL  ;UPDATED NUMBER = CURRENT NUMBER? 
Sade OL4EGB aa | aR tyes CLEAR Col 
3 ol4eo4 yee c fAtReC’ nach oe 8 
5asg 14610 1 Ore #2, RO sFIX POINTER (STORAGE). 
= 14bL4 oe 000015 014754 che HS, CHAR sLAST CHAR TYPED A <CR>? 
. re o000S4 014754 CMP 8’, ,CHAR LAST CHAR T A COMMA? 
Bi aese I BEQ 73° YES - TAKE OF IT. 
BS aise% ral asa 00 #2, RO FIX STORAGE POINTER. ; 
iWe99 4 1 7$ ST TNCFLG ENTER HERE ON COMMA TYPED. WAS COLON- 
2459 O14bs0 00133) c$ :PREVIOUSLY TYPED? IF SO TAKE CARE OF IT. 
e460 014652 023737 O14764 014766 CMP NINC, NINCL. ;BUFFER OVERFLOW? 





= 
S BR 


£ 


SUPA N CORB aRR PRR ER Se SPREE Ia Iota 


re ee 
CumcWUEH 


Hatt ttt ttas 


04 


-11-D0ZICA-8 MACY1 es SEP- 
Pll INITIALIZE 1A conc peed 


14660 00301 BUT 8$ sIF YES - PORT , ERROR. 
146be e732 014762 is CHARC. sHAY, CHAR HY CHAR. TYP Re 
14670 14756: NIN (0)+ ior NUMBER. 
74 4764 : 
ie Gig, bites he NN a ieee sae” 
14708 104400 8S: TYPE $0008. BUFFER OVERFLOW ERROR 
nite etki, 013746 cp INOCTR 
014714 104400 : 10$: 7 .T noe 
014716 O21 ” NOMRK we & 
14 000137 013746 | IMP INOCTR 
g1y7es 104400 | 11S: TYPE ;TYPE “LAST CHAR TYPED NOT AN OCTAL DIGIT” 
FE EG eve gl esa is 
14 123: 
14736 Gese0s i MINKN 
014740 000137 013746 IMP INOCTR 


TRETURN FOR ¢D, tJ,tL,tN, t€ 





14744 00240 P -RASK: NOP 
14 16 00004 SUB #4, (6) 
14 : XIT 

a in eee ee 

hO000C NINi: R ER, JST IF MULTIPLE 
014762 000000 CHARC: 0 USED TO COUNT N NUMBER. 
14764 000000 N 0 ;NUNBER OF ADDRESSED ASSEMBLED. 
14 : NUMBER 
HE HED couse BRE Se oem REE EE ® SR 
014776 021136 MEXEN . 
015000 000137 o14744 JMP = RASK 
1S004 001652 NOSET: CLR’ €XPERT sENTER HERE ON “tN” 
erent 104400 eR *SET NOIVE MODE 
015012 O211 MNOEN = a P 
015014 000137 014744 IMP RASK » 
15020 001656 LPSET: TST LPAV sENTER HERE ON “t 
sean 1404 BEQ 1S SANY LP BVAILABL ES - -"IF NOT EXIT. 
bers ier TYPE ; TYPE "MAKE LP READY” 
1 001660 INC’ _LINEPR 
Hed 000137 014744 1S: IMP 


NAINDEC-11-DZICA-B 


DZICAB.P11 


Use aeAE Oke caBMMRE LR BEM R NUNN 


aR IDDD 


1 137 001654 
1 1 
15084 000137 


O00 BOOCOCOOOOOOOOOOO00000 


ot DB > hOB Bt a ~ b b =  h  D po p  e h e 


UW UWI uuu 
eh pe Bot b> pt be bh FB Bm fs Pn pee pe 


o 
<£ 


ONO ONOOOO0OAOO000 


Bo 4b es Be Bh Ge hee 


wmuowiyi 
aera es 


NER oRESISE EE 


Ro KEBFGKSY 


F2Ne 


SaStaRe SS 


014744 


b> 
= 
= 
U 


a) 
é 
a 


1764 
104405 
Te 013042 
001570 
mie 
RIES 
ee . 
005337 013042 
1365 
104400 
021672 
3 
104400 021347 
104400 
021352 
104405 


aes 
g888 2 
aay 3 


: 


gs 
oe 
= 


MACY11 27(732) 
INITIALIZE THE COMMON TAGS 


CONNTR: 


RDELA: 


001566 


OO1SE6 1S: 


RDELA3: 
RDELAY: 


OO1S6E 15: 


es: 


JO4 
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;# 
j BROUTINE TO CONNECT I/0 MODULES (SOFT) 


bom 


MAC 
JMP 


CONNT 
+6 


RASK 


3% 
;#ROUTINE TO ASK FOR AND SET DELAY TI 


TST 


EXPERT 
+6 


FREQ 
FR3 


3# 0 DELAY OR CR BY OPERATOR - USER DEFAULT OF 3 MILLISEC. 


sASK OPERATOR - 

:"DELAY TIME IN MS (DEFAULT=3MS)?” 
- FREQ 

;GET NUMBER. 
RTEMP 

;IF ZERRO,. USE DEFAULT 
FREQ ;SET FREQUECY (OR DELAY). 


; TYPE” TIME TOO LONG”. 


°% 
j #ROUTINE TO FORM SECOUNDARY DELAY 


Type, 
TYPE 


3$ 
a 


MDEL1 


(6)+, RTEMP 


FRI FREO 
FREQ 


FRE 


RASK 
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thay 104400 3$: wr 

Bisses 860760 BR ROELAY 


3% 
;*#ROUTINE TO SET UNI OR BIPOLAR A/D 
s®CALL = QUBR 


2573 
& 
2579 
2) 015252 005737 001652 RQUBR: TST EXPERT 
2584 015256 901002 BNE +6 
1 1044) TYPE ;UNI OR BI-POLAR? — 
1 d242 M | 
1 TYPE 
2588 Ol 1764 MQ 
2589 015270 005037 014754 CLR CHAR 
2590 015274 105777 163644 1$: TSTB © aSTKS sWAIT FOR RESPONSE 
go3) 1 100378 BPL 1$ 
1 1 163642 2s: TST8 adSTPS sECHO. 
$3 01 1 BPL 2$ 
2594 015316 i 163632 013042 MOV sage ,RTEMP 
95 15316 1 13042 1esbeb MOV TPB 
% O01 2737 000240 O13042 BIC DATE TEMP 
2597 15338 bere 013042 000003 CMP Rig, 43 #3 s¢C TYPED? 
2598 O01 1 BNE 
2599 015342 000137 003366 IMP eT 
gb00 O15346 <7 013042 00015 CHP RIENP #15 CR TYPED? 
2602 piesee o 013042 014754 a ‘  RTEMP,CHAR - 
2603 015364 000743 co in oe 
2604 015366 104400 001163 -  38:' TYPE,  SCRLF 
oi Oea7e7 014754 000125 CMP CHAR, #°U 
1 1 : BNE 4S 
See Bteuoe babes = OtsesC | ee 
2609 015410 005037 013250 4S: CLR BIPOL 
2610 015414 EXIT 
a } 
ebl: bene T9 gc THAT AN ADDRESS TYPED IS A LEGAL ICS-ADDR. 
bli F NOT - ENTER WITH ADDR IN (0) 
st 
2618 O15416 013737 OOD0D4 015516 CKADR: MOV © an, 3 s STORE LOCATION 4 
2619 015424 012737 015466 000004 MOV ae4 ser, TIMEOUT LOCATION FOR TRAP IF ANY. 
2620 15432 005770 000000 ‘ae Hit . ADDR. TYPED. 
gbel 154 ; NOP 
2623 ¢ MODULE ADDRESS DOES EXIST BUT NAY NOT BE ASSOCIATED WITH, TH : 
2624 = FILE BOX. THEREFORE, CHECK ADDRESS FOR WITHIN FILE BOX LIMITS 
Sse . 
7 O1S440 37 015516 OO00004 MOV ry ;RESTORE TIME OUT VECTOR 
5c58 BENE B3rib 001702 CMP MP no) 
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Pe ee 2 Hac an 
1 18: ‘TST (Qs 
BS i a a Rw ares 


15478 TYPOCT (9) 

1 011046 MOV (0) ,-(SP) a: ) FOR TYPEOUT 
ie 104401 aene Typoc pte? ee PE -OCTAL ASCII(ALL DIGITS) 
1 162716 o00002 SUB #2; (6) X RETURN ADORESS ON STACK 

2640 ot 3737 015516 o00004 MOV 35,084 RSTO CTOR ADDRESS 

ebu1 15514 Bbaoee | EXIT . H RETURN AND REASK 

ze 015516 000000 3S: .WORD 0 ites ES im: Nae 4, 

2645 

aby g15s20 '04400 026361 — 4g: TYPE, NRANG! sNOT WITHIN FILE 
1225 011 MOV (0),-(SP) $3 

sei biEeee ioWai ~ Typo . $388 PvE 2 beta TAL OT CALL DIGITS) 

sel DISEN 005726 one TST’ ee sPOP STACK PAST J Pat 
1 1 3 oooo02 SUB #2, (Rb) *BACK POINTER TO RE-ASK QUESTION 

S3 015542 0000 EXIT * RETURN 

Spee 

2656 3% 

2657 *#ROUTINE USED OFR GENERATION A DELAY 

26 *#CALL=DELAT _ 

Seo ; 

2661 gissi 013737 001566 013042 RDELAY: HOV FREQ, RTEMP  ;GET DELAY TIME 

eee 1% biBee4 001570 O1S600 MOV FREQL, RTEMP2 

 Pbb4 1 01304 1S: DEC RTE ; DELAY 

2665 915566 001375 BNE 1$ 

2666 015570 015600 DEC RTEMP2 

2667 15574 BP 1g 

2668 015576 2S: XIT ; RETURN 

2669 015600 O00000 RTEMPe: O 

267 j #ROUTINE. T9 GENERATE SECOUNDARY DELAY 

2674 + = 

267 aE at mae 001572 013042 RDELA2: fiov FREG2, RTEMP 

26 15612 013737 001574 O1S600 MOV REQ3, RTEMP2 

2678 O1 005037 1 CLR P 

2679 Ol 013042 1S: DEC RTEMP 

2680 O156 BNE 1$ 

2681 Ol 015600 C RTEMP2 

2682 015636 100372 1S 

ores 015640 o00002 2s: EXIT 


04 


C-11-D2ICA-B MACY11 27(732)_ 20-SEP-76 15:53 PAGE S 
CAB PL Pll INITIALIZE THE COMMON TAGS : 


nz 


3% 


i* SYSTEM INITIALIZE ROUTINE 
: 


RINIT: | 


apaenpaanal 


biBeae 913700 001104 | Moy. SICNT,RO 
015650 032777 OO0001 163262 BIT #1, aSWR 
Bisse O00137 003366 ine Start 
DisseY 050777 OOD100 163252 18: BIS, #100, aSTKS 


8 


0 


t SROUTINE USED TO MODIFY PATTERN SENT TO OUTPUT MODULE 
fe Prec been 7oN MAY BE CHANGED BY RPATA (PATTERN MODIFIER INPUT ROUTINE) 


001602 O00012 RCPAT: CMP PATRNM, #12 

Q RCPATR 

CLC ;CLEAR C BIT 
001604 RCPATI: INC a#PATRN ;MODIFY PATTERN 


‘ . 
005137 015706 e: 137, RCPATI ;DOING A COMPLEMENT PATERN? 


eee As ;IF SO DON’T ADD CARRY IF ANY! 
1606 001604 TRNC, PATRN 
1606 CLR PATRNC 


015706 006037 15: ae RCPATI, #6037 


100000 001606 NT #100000, PATRNC 


RREREEEREE 


Rane aRS 


Sa 


SANASISNS 
ay 
2 


Ce ee ee ee ee en ee ee oe ee ee a nt oe 


5750 
5756 
B7e0 12737 000001 OO1606 2S: HOV #1,PATRNC 
Soe _ S#MODIFIER LIST 
5770 005237 RCPATL: 5237 #INCREMENTING PATTERN 0 
0053 b337 rela t #DECRENENTING PATTERN 
057 737 ;#NO CHANGE OF PATTERN 
1 6137 ;#ROTATE LEFT PATTERN 
6002 37 pea? 80 NOOR NUMBER GENERATOR "5 
6004 besa? bas? ;#ARITH n SHIFT LET PATTERN ' 6 
6006 005137 , 5137 ;*COMPLEMENT PATTERN ? 


tAAL TERNATE CHANGE PATTERN pout pe IF RANDOME 
;*NUMBER FOR PATTERN IS SELECTE 


SRAAARARNASSARRAAARR 


8740 016010 © RCPATR: 


de a ama MACY11 27(732)_ 20-SEP-76 15:53 PAGE 53 
DZICAB.P INITIALIZE THE COMMON TAGS 


2741 a 00473? 016244 ISR PC, SRAND : GENERATE A RANDOM NUMBE 
e742 O16014 013737 O16344 001604. . MOV SLONUM,PATRN § ;PUT NUMBER IN PATTERN. 
shal Ois022 000002 EXIT 
. 2747 S SPATTERN NPUTTER AND MODIF ER ROUTINE - 
s HORN PAT PATTERN MODIFIER, PATTERN. 
aca jem 
751 016024 005737 001652 RPATA: tST EXPERT 
oes Bieose 104400 We «Cf OPERE | 
16032 1 E , ASK OPERATOR-"PATTERN MODIFIER AND 
O16034 021714 MPPM : PATTERN?” 
16036 O1 001602 016070 MOV SFATRNM, 1$ SET TO INPUT PATTERN + MODIFIER 
ter Beene ve ; er te Betenn St? ce DEFAULTS: 0 PATTERN 
preg Bienes Boe? 001 eR PATRN ‘BATE MOD. = INC. 
| 016062 o0040 BR +4 
1 016064 BR RPATA 
01 0441 INOCT ’ 3GET THEM. 
ot 6 1S: BRTRNM , 
2765 o16074 Ole? 01577 013048 MOV WRCPATL,RTEMP POINT TO BEGINNING OF MODIFIER LIST. 
2766 016102 737 1 0016 BIT #177770,PATRNM ;LEGAL PATTERN MODIFIER? 
7? O16110 O01 BEG. 2s :IF 
l6ll2 1 025326 - ,  MIVP NO “ERROR MESSAGE. 
1611 BR RPATA *REASK QUESTION. 
2770 016120 2s: 
2771 O161 602: PATRNM 
. 161 2 7 001602 B #177761, PATRNM ;FIX ADDITIVE. . 
iol 37 001 013042 PATRNM, RTEMP POINT TO MODIFIER. 
16146 17732 174676 015706 MOV DRTEMP, RCPAT+12° sCHANGE PATTERN MODIFIER ROUTINE. 
16146 EXIT s RETURN. 
16150 . $SAVE 
.SBTTL SAVE: AND-RESTORE RO-RS ROUTINES 
ee 016150 STARS 
780 . j EReEeaapeenaeeeanareesneeeaneeeennereanaceeeneeeennteen 
eras rete | 
83 aanvREG 
, jxuPON TURN FROM SSAVREG THE STACK: WILL LOOK LIKE: 
Peres} 
% +2---(+18) 
ay ii 
$# +6---R4 
;# 
see doooRO 


161 '  §SAVREG: 
ete 3 PUSH «RO,R1,R2,R3,R4,RS> 


ee ee ee -- - 





(732) 20-SEP-76 18:53 .PAGE S4 
RO-RS ROUTINES. 


oO 
r 


ESERSELOS 
pa titted 


;#RESTORE RO-RS 
7% Ls: 


ra 
GRRE 
Ture wr 
Dr+++ 
SPRSPR AUG 


RS 


LLL LON LN LO PLO LO 
90'S D'S Gano SSS 
ee ae ee ee es ee 
+++4+44 


QNAMINN0O00000( 2002 


6-0 20 +6 -+— = 0 <6 -2§-- 9-2 h ~ pop =m 





;;PUSH RO ON STACK 

;;PUSH R on TACK 

;;PUSH N STACK 

ss R3 ON STACK 

;;PUSH RY ON STACK 

;;PUSH RS ON STACK 

3;SAVE PS OF MAIN FLOW 
;3SAVE PC .OF MAIN FL 

339A Be ee CALL 

3;SAVE PC OF CALL 
;;RESTORE PC OF CALL 
;;RESTORE PS OF CALL 
;;RESTORE PC OF MAIN FLOW 
preston PS OF MAIN FLOW 
;;POP STACK INTO RS 

3;POP at een inte RY 

3;POP STACK INTO R3 

33;POP STACK NTS Re 

;;POP STACK INTO Rl 

;;POP STACK INTO RO 


. SRAND 
-SBTTL RANDOM NUMBER GENERATOR RCTINE 


ce: 


1 
4THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


s*#WITH A RANGE OF O TO 2(+33)-1. 
#CALL: 


aI 
Geena 


0-6 =0-<0 ~0 0 + 0-0 0 b— b+ + +B +P 


ODOOOKOONOO0O0O00R0000 


cs 
o 








33 THE ROUTINE 
;;RETURN HERE THE RANDOM 
ssNUMBER WILL BE IN 

; ;SHINUM, SLONUM 


FT LOOP: 
MAKE X 129 


+7808 TQ MAKE X 129 
33 L ONSTANT 








ath 
ae 


SRO an rn 


Bee 


o 


b= bs 


8 
o-4 
Q 


QNOVWOOO000000 
0 0 0-= 0 b= 6 6 0 8 9 Bo a 

aaa 

bo 

& 


aibene 


ON0O002R00 


$= 6-- 0-6 —P 2h +e ~ pm 


: 


ae 


A-B 


1 
> ies 


1 
010137 Ol6342 
BiseO: 

l 


176543 
123456 


: 


RANOON NUREER GENERATOR 





20-SEP-76 15:53 PAGE ss 
Pi So , i pint te 
SHINN NE RI 
»Re + sBOP STACK INTO Re 


Ro HEB Brack INTO RO 
sRETL 


paar: 
.SBTTL SINGL thece LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


STAR 
ryereteatecnanennnennecnnnevecennenesnsnstatssusaraassssysst4et 
eunGicNeD OECIRAL.ASCIE NU A 16-BIT UNSIGNED BINARY NUMBER T 


s HUNS CIZ NUMBER. 
38 R,-(SP) ssPUr BINARY NUMBER ON THE STACK 
SRB Pee te 
3% TURN SS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
$S82D: ~ MOV ae ;;SAVE BINARY NUMBER © 

MOV #15, -(SP) $3887 POINTER 

ISR PC, ae 3 3CALL DOUBLE H CONVERT 

ADD #5; (SP) He BLL OH Fiore thakac Yess 

N (SP )+,2:SP) ae: CKUP OINT 

RTS PC 

1S: ere 0,0 


. $0820 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL asci! CONVERT ROUTINE 


; oo TS ROUTING WILE CONVERT A) ae -B1T BINARY MMGER 10 al UNSTONED 
pag ROUTINE WILL CONVERT A BINARY NER TO a UNSIGNED 
ASCII) I HUMBER: THE cn ie THE BINARY NUMBER MUST BE 


:#POSITI 
CALL 
* MOV #PNTR,-(SP) ;;POINTER TO LOW WORD OF SINARY NUMSER 
i+ TURN ;; THE FIRST SS OF aSCIZ 
' IS ON THE STACK 

$OB2D: SAVREG 

NOV” «© 2( SP) R2 $3 pg of Dat Po 

By cu RO SFT APDRE ae ON STACK 

MOV ( 4B ;;PICKUP THE SB INARY HonBee 

Oy ; “ TO 09. 10, pSONVERSIONS 

e1U. 

MOV is Neue RY + ORES SS OF 

MOV TNPWR+2, RS 
18: -CLR: &3 oes PARTIAL 





é 


Y 


ke 


laENARY to oxic dow 17°23 CONVER ROUTINE 


, 
22 
3 


oO 
Ce 


COOP Orrr@rug 


;;SUBTRACT TEN POWER 


3 38R . in POWER TO LARGE . 
0 PARTIAL ° 


e 
(R4)+,R1 HO oe SUBTRACTED ‘VALUE 


S00aEE 
See & 


FER 
‘= 


(RS)s" ( ;;MOVE TO NEXT TEN POWER 
8°03 ie tr PARTIAL TO ASCII 
oe. 


££ 
23 


oo 


pones 


Bae i OR “ae FoR 
sieeior REGISTERS 


PTHPOPOrMPrreaa aaa a 


eee 


tat 
wT -£VO 
eke 


- 


net 


= 


SeEerEeErerErErErperererEresascsoo°ES 


Eesoneiearoconan 
oan 


;;RESERVE STORAGE FOR ASCIZ STRING 


- 
i 
aE 
ei 
ea 
BS 
Bee 
cae 
BE 
= 
eae 
244 
Ba 
esi 
eH 


'SBTTL ERROR HANOLER ROUTINE 


$ taaeenseenusenussnuasazeonessavscnasnoncenvesneayuecestesnennis 
i ie ie INCREMENT T’ : 
AND THE ADORESS OF THE ERROR CALL 
0 SERRTYP ON 
ia gRITCH OPTIONS VIDED BY THIS ROUTINE ARE: 
;#SW1521 HALT ON 
Sul 3eh INHIBIT TYPEOQUTS 


i 


EEReeS 





BAINDEC=11-D2ICR-8 MACY11i ate 


“. 
Bs 
Bk 
a 
Be 
- 
: 
Be 
é 
x 
= 
3 
3 


S8B88S8Ssss 


0 0-0 b= 00 0 
WONWUE WHO 


B 


b= bh a Hy Re 


S220 2S900902000 9900 
ehiwis tookes onaa 


3 


2 
& 
3 


ONOOOOOOOOOVOO00000 20 200000 
o 
Be. 


ERROR HANDLER ROUTINE 


EOS 


20-SEP-76 i5:53 PAGE S7 


N ;;ERRORSEMT AND N=ERROR ITEM NUMBER 


_— t BB PEEP IE ELBE co 10 zeRO 


$ sre ,» DISPLAY 3 DISPLAY TEST NUMBER AND ERROR FLAG 


( be RRPC rf Ss BRE ROR INSTRUCTION 


rt ae ieee i af ip Tee rireou ir ser ITEM CODE 


:3SkI 
PC TYP 360 TO TISERE ERROR ROUTINE 
PEO 
HT 
Skt 


PACT ei Sarre 
TYP RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


20s: 
es: 


3$: 


TARS 
8 THIS ROUTINE USES THE “ITEM CONTROL BYTE CSITENB) 10 DETERMINE 
THIS ROU ROUTINE USES ROL BYTE" TO DETERMINE WHICH 


ork K 2 Fhe Repowre TT Tren oer THON ao THE AE ERROR ae 


SERRTYP: 
SCRLF 33 CARRIAGE RETURN” & “LINE FEED” 


RO, -(SP) 33 
RO’ :;PICKUP THE ITEM INDEX 


BIS8  dsSITEMB,RO 
BNE 1S ;;IF ITEM NUMBER IS ZERO, JUST 
*TYPE THE PC OF THE ERROR 


SERRPE-(SP) moti 
C,- SERRPC FOR TYPEOUT 
7 ASCII(ALL DIGITS) 


THE wane FRREX 2°, THAT THAT ir A 


Re We ee Nek 
a th) re 
$A MEER POINTER, (OES, HEN 


Aaoeagarcorrre gs | 23 
© Bgy° BER BSSaE 


z 
a 





FOS 


-DZICA-8 MACY11_27(732) SEP-76 15:53 PAGE S58 
ERROR NESCAGE TYPE ROUTINE 


011000 S$: - _ (RO), RO dys es “DATA TABLE” POINTER 
oh BNE #3 THE DATA 


? 
v1 
onew 
ps Bae 


001163 es: he sSerde™ RETURN” 8 “LINE FEED” 
000207 


1004 

13046 on ‘i ADDS, -(SP) hemo, 

10440 am | q Heke oth eScIT at DIGITS) 
a 


1 6S 
ee Tre? he (2) ‘SPACES 


017020 iy | 
000 8S: Se $3 tFlo2) SPACES 


1 


OOOOOO0000000 
O-- b= Bs > > B 2 8 § — 9 pe p= p= B= Be 


oO 
os 


:STYPOCT 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


o 
- 


STARS 
ae eo ree a re eo cert a oe eae 
BINARY NUMBER TO A 6-DIGIT’ 


16-BIT 
= COE MEER, RO TEE Upnese ZEROS AND NUMBER OF DIGITS TO TYPE 


mh ow cau REE OR THBEOUTS 
iNet a iM FOR NUMBER OF DIGITS TO TYPE 


-BY N 
-BYTE M . F +3 Mal 
+ LEADING 


ero pugs HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
CALL: OR oc 


MOV NUM, -( SP) ;;NUMBER T 
is TYPON 3; CALL FoR. T bur 


leon HERE FOR meen OF A 16 BIT ‘NUMBER 
; 5 TO BE TYPED 
SEE FOR TYPEOUT 


Po Eh oEROT ZERO sae 
H nue RE TORN 


‘STYPCC: 33SET THE ZERO FILL SWITCH 
 §TYPON 3 T FOR ; X(6) TION COUNT 
$8 ve 
33 RY 
;;SAVE_RS 
-33GET THE NUMBER OF DIGITS 10 TYPE 


ss ASTORT IT FOR MAX. aLOeD 
;;SAVE IT FOR USE 


TTT TTT TT 


0 eh er 
—o—0— 


N“N 
—" 
— 
tT 


_ eRe 


,§ DOOOOOOOO000000 





GOS 


POSH eae "  MACY11 27(732) 20-SEP-76 15:53 — 59 


aa UNSURE -CAeT DIGIT ISN’T A BLANK 
2s 305 BO ThE [ast ot off” 

oRS ;;RESTORE RS 
Shee 

SP) $3SET THE STACK FOR RETURNING 


6$: 


REPS 


no 
Hy 
ABSESESzPER 2 


; RETURN 
8! ago FOR ASCII DIGIT 


. oo. av NATOR FOR TYPE ROUTINE 
NT: .BY AL -OUGIT COUN 
ILL: ROF TLE Suits eH 


SOMODE : Aero OF DIGITS TO TYPE 


.SBTTL cee 


STARS . : | 
g2 SELEFLALELSELALE LALLA EERE ELE ELAR ELAS ALE REA SEL REALE EALARERE 


I 
012737 017416 o00024 Ra MOV asf UP 2 C ;;SET FOR FAST UP 
anbinvgcve 4g 6R10:7 


a 
2 
m 


ICAB.P11 BINARY TO OCTAL (ASCII) AND TYPE 
77 #0171 1 ? MOVB RY 33GET THE FI H 
Be RI tees baobié we RGM ALY "li Sa 
17139 0061 18: ROL RS TIE ONTO Tagore 
71 Obei0s 2s; fa ke tt BOen THIS DIGIT 
171 1 ROL RS 
3084 17149 006105. ROL RS ao 
De bifia Boe G3 : 3$ Rot R32. s;GET LSB OF THIS DIGIT 
17196 017250 DECB SONODE ;3TYPE THIS oIGiT? 
seg 17154 177770 I¢ - 8177770,R3 i T RID OF JUNK 
3090 017160 O01 4§ 33 F 9 
3091 017162 S RY ;$ SUPPRESS HIS 0? 
3092 017164 001403 oo 2). i S$ ::BR IF 
3033 17166 dos204 4S: INC DON’T SUPPRESS ANYMORE 0S 
17170 BIS #’0,R3 THIS D Gir ASCII 
309S 017174 S$: 15 #’ >R3 mK NOT ALREADY 
3036 ll 17244 MOVB RBS SAVE F ING , 
7204 1 017244 a¢ 33 THIS DIGIT 
3038 216 017246 7$ $OCNT 
14 7 ) 3;BR IF TO DO 
7216 02 33BR 
Oleb0s 
bi Se03 
uae 
000 


OOOAMNOOOVOVWOOOOO00000000 


GO bb 0 hb © pF > P= he gh pe 


1 poe 


010046 cho, ALAF es ‘ 3H RO ON STACK 
S 8 URE 
Bee fas -{ 3} ss Pua Ro Ot at 


WWII WIIG) GIWIGIGI WI WI GIGIG) ly WLIW WI WII WI WLIW WWIII WWI) 
0 0 es es eo 0 0 oe 0 os 2 0 ee 


Re BSR RRPORE Bae len con -CBBVRRE ORS 


SRB SANPROR 


RB 


>= 6 -- bb & ~~ 0 B= 9 pp 


WILIWWUWIWOLIGIGIU) 


“SSR UFREOREESEUERAP OH BSS SFHESHH-SSBVRREES 


Ob +b = bh 4h ~O- + b-= D> - Ob = = bb 0 2 hh 2 he eh DH Deh P+ 0 b+ § = h © bh 2 ph 


09 GIGI) WII GIGI GI GIGI) GI) GI) WI) GI I 0) GI IG) GG) G0 LG GJ GI GI GI) CJ Gd 


BURRISV— Sia outs 


HOS 
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NES 





1-DZ2ICA-B MACY11 27(732) 
l POWER DOWN AND UP ROUTI 
17 000000 HALT 
§12358 000776 BR “2 ;;HANG UP 
017324 STARS 
Daal as Gaee cae ade se ee cece 

1 1 17416 000024 §PWRUP: ' LLUP,@#PWRVEC ; SET FOR FAST DOWN 
Gifs Blsrte Bins ny Sea Ht ttn 
2 er Be as, fe EIRHT P 
1 POP onal 
r 012677 161564 MOV eae asWR *POP STACK INTO aSWR 
ey 1 OV CRS FA, R2,RL, ADD TACK INTO RS 
1 1eeos MOV (2p) 3° Ra >:POP ST NTS 
1 1 MOV (SP)+'R3 POP STACK INTO 
1 12602 MOV (SP)+’Re >:POP STACK INTO 
alee alse MOV (SP +, RI : POP stack NTO Ri 
12368 ise09 017252 900024 Nov ry SapwRvec’ i6SeT uP DOWN VECTOR 
igre DAGCa a iateectipcest sHPRIO:? THE POWER FAILURE 
17408 SPWRMG: .WORD PWRMSG >:POWER FA Al MESSAGE POINTER 
eat spurno: "HORD START’ i PERT ART ADDRESS 
17414 ” RTI sit 
17416 SILLUP: HALT ;; THE POWER UP SEQUENCE WAS STARTED 
eae ssavré: BY be eT THE SPHERES OO MAS C 

9° 
017424 . SSCOPE 


emt, SCOPE HANDLER ROUTINE 


0 : sy euieeeasaeeesanatens S THE evseeesesegsnenyes HAT WILL INCREMENT 
baAND Loa it eeet NUMBER(S STNM) YaNto Tie BISALAY REG. (DISPLAY<7:0>) 
pis BuiTon OPTI rong PR “A phod oe ae Y THIS O ROUTINE ORES 
Suit let FRNIBIT I arroe 
i SCOPE ;;SCOPESIOT 
174 SSCOPE: 
a 032777 O40000 161506 tt BIT WBIT14,aSWR —__;;LOOP ON PRESENT TEST? 
17432 001055 SOVER ives IF SW14=] 
017434 000416 jecerestes od my ~~ 7 te F RUMEN ON THE “XOR" TESTER CHANGE 
+5 a ie a ON TOA” (NOP=240) 
17436 O01 D¥ERRVEC,-(SP) 5 ;58 NTS OF THE ERROR VECTOR 
irae O17abe co0004 MOV 85S, JHERAVEC 
1 ey 38177060 
17454 O1 | (SP)+, QHERRVEC ro ERROR VECTOR 
017460 . 000436 BR SSVLAD siRES To THE NeXT TEST 


i ee ee ee o_ = 





I) GILIGI CIGIGIGIGIG) 
rp 


Pb = > +--+ > p— =F 


AISI ISIS LSS CoS ct tetris 


0 0 — 0 bb a he 
WONOU£WlH-O 


yao oy RS RAIN SUSU 


ge 


Celt SCOPE A Bt 
Hire flee Om 
174 
ita 001103 
174 007464 
10 161422 
B17838 ao 001100. 
Oise 0014 
1 001104 
: 001160 001104 
AS Hee Gomis 
bivese 10Se%7 OoLios 
17eee O19777 QOllOs 161346 
ier 3716 Solos 
17606 
017602 00370 
017604 
0176C4 . 


01 


go BR bb bs = P= fh 


emer 


eee ee es -- 


10S 
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ss: CNP {St , (SP)+ "Peto Eero A TIME OUT 
BS: oe OF Bhi WF on ne son'tt ar. a 
a ee ee 

Eda 6 lam a 

i Slenr sc He ty OF ITERATIONS MADE, 
1S: ‘sf #1, SICNT Hat FR ETHEL IAD rep 
ssiuso: Ih HT »STIMES Sante t hegees TO DO 
on 4 iar ae a oes 

XS NURBER OF ITERATIONS 


SMXCNT: S000. 

.SBTTL TTY INPUT ROUTINE 
STARS a. ol, 
s REEEEEERELESE BEL ESL CRESS SLRS RRL SEE LE ELE ESSKSER REEL ERE SEAR SELES 
‘ENABL LSB 

.DSABL LSB 


TARS 
iTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM TIE TtY 


t iTH HIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TT 
fa ROCHR ;sINPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE TER IS ON THE STACK 
3H 2 uITH PARITY BIT STRIPPED OFF 
ee ek ie 
1S: TSTB °° aSTKS’ : WAL F 

r i 4(SP) AD T 

BIC at 1772 ,4¢SP) ea RI 1D OF J oF TYUNK UNK IF ANY 

fs t F 

a ee oa 

Bic stoi? ep) Has IT 7- “ , ASCII 

(SP)+, bel 3318 IT A CONTROL-G? 





- 


BR 


O0O0000000 
Pao Ph fh 

IN 

pat he 

<r 


BS 


SPER 








1 













LATENCY 


TCA-B 
TTY INPUT ROUTINE 


be 


ue 


MACY11 27(732) 


ooc004 000140 
000004 000175 
000040 000004 


ee 
ES ltt EE 
ahs 


lee 


JOS 
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IE. NOT. ISCARD pol: 
3S: MP disp) Hi 7ES RE t 
: CHP , #140 $j peat ere . 
CMP U(SP), #175 + a AL CHAR? 
BGT ug’ iat iF yes 
BIC #40, 4(SP) >3MAKE I 
‘fins RTI *3G0 Back 0 Seek 
LTHIS ROUTINE WILL INPUT A STRING FROM Te TTY eee 
pATHIS. ROUTINE WILL INPUT A STRING FROM THE T 
is : Ren HERE + kes 4 ea ae WILL BE ON THE STACK 
% + PON TRaT Wate BE" BYTE OF Brg 
SROLIN: MOV | "ss SAVE _R3 
1§: MOV atv N r + GET ss 
ch TTYINSS. ,R3 +s BUFE veut 
ROCHR GO READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+, (R3) 55 GET 
re ae le 
4S: TYPE  ,$QUES >3;TYPE A °?? 
BR 1$ $3 CLEAR THE BUFFER AND LOOP 
38: Ove (8), 98 *:ECHO THE CHARACTER 
Se eC Ca ite 
CLRB 3s - 1 (R3) CLEAR RETURN (THE 1S) 
nv teBh aro iinet one Ra EE 
MOV (SP). *(SP) : AblusTe THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP}_2(SP) 2: FIRST ASCII CHARACTER ON IT 
Ht aSTTYIN, 4(SP) aa 
Qs: Hi FOR ASCII CHAR. TO TYPE 


Y Bie 8 ‘ims > ;RESERVE 8 BYTES FOR TTY INPUT 
batt e vamp — eONTR oye 
« (le> ya s/ 
SMNEW: .ASCIZ / NEW = 7 
. SRODEC 
-SBTTL READ A DECIMAL NUMBER FROM THE TTY 


Soe ener e mre ere are 


une scnae NE WILL RE CINAL (ASCI che OR aT HE TTY AND 
PEN CHR Heat CuRnRCTERS 
LINE FEE 


ee COMPLET E agen R MUST B D. T IS TERM rat . Te 
Tig COMPLETE, MIE ALS] Oe ee ee Br T NONGER 1 


KOS 


MAINDEC=11-DZICA-B MACY11 27(732) 20-SEP-76 15:53 PAGE 63 
DZICAB.P11 READ A DECIMAL NUMBER FROM THE TTY 


s POSITIVE 32767 TO NEGATIVE 32768. 
rr RDDEC ;sREAD A DECIMAL NUMBER 
1% RETURN HERE >:NUMBER IS ON TOP OF THE STACK 
, 
1 SRDDEC: (SP), =(SP) + PR EF 
308 Be0108 ata oo0004 00002 ioy 4(SP)_2(SP) tithe Ineut None ERR 
* 3303 Bsoree on ae <RO, RL Re) PUSH RO ON STACK 
31 beol1g biBive MOV AP (8p) >:PUSH R1 ON Stack 
1 lle 010246 MOV Re, -(SP) PUSH Re ON STACK 
3313 020114 1S: RDLIN >;READ AN BSCIZ LINE 
3314 be0116 1 | MOV (SP)+,RO He SS OF 1ST CHAR. 
3315 0201 1 020244 MOV 0,6$ >: SAVE INCASE OF BAD I 
3316 020124 O0SO4%6 CLR -($P) >:CLEAR DATA WORD 
3317 De01e6 bos00e CLR Re ::SIGN SEI POSITIVE 
3318 020130 122710 oo00ss MPB Ss #’'=, (RO) +SEE I A MINUS SIGN WAS TYPED 
$313 020134 001001 BNE 2s ::BR vi NO MINUS SIGN 
D201 36 11206 MO (RO)+,Re >:SAVE FOR tar USE 
3321 140 112001 2S: MO (RO)+;RI *:PICKUP THIS CHARACTER 
3322 020142 O014 BEQ >:GET OUT IF ZERO 
3323 e014 122701 000060 CMPB = s«8’0, RI HH SURE THIS CHARACTER 
_ 3304 150 003032 BGT c$ si 5 DIGIT BETWEEN 0 8 9 
3325 020152 122701 000071 CMPBs«8#? 9, RI i ere 
3326 020156 002427 BLT - 5$ 
3327 020160 03271 170000 BIT #107777, (SP) | ;;DON’T LET NUMBER GET TO BIG 
3328 020164 001024 BNE S$ >:BR IF NUMBER WOULD OVERFLOW 
1 16 ASL (SP) s3#e 
1 1646 MOV (SP), -(SP) ::SAVE FOR LATER 
1 1 16 - ASL (SP) 224 
3332 020174 006316 ASL (SP) +348, 
S333 DSC0R TBSNTE eve ga 
- 10241 BV 5 >:OVERFLOW ISN’T ALL 
3335 O20e02 162701 o0p0060 SUB #’0,R1 ::STRIP AWAY THE ASCII JUNK 
Be De0e06 060118 BOD R1, (SP) $ADD_IN THIS, D T 
10 10241 BY S$ ;;OVERFLOW ISN’ 
3338 De0ele 000752 3 >: LOOP 
3339 O20214 00578 3 TST >:CHECK IF NUMBER IS NEG 
3340 020216 001401 Q 4g *:BR IF NO. 
1 be0e29 OOSHi6 NEG (SP) +: YES--NEGATE THE NUMBER 
1 000012 4S; MOV (SP)+,12(SP)  }:SAVE THE RESUL 
3 Oe0e2 ; POP (Re, RL. RO> 
‘3344 Oe0e26 oO12602 MOV (SP3+, Re ;;POP STACK INTO R2 
33 30; 12601 MOV (SP)+, 1 >:POP STACK INTO RI 
33 32 O1 MOV (SP)+; *:POP STACK INTO RO 
eet Ge0e34 900002 RTI ; sRETURN 
005726 cs: TST SP)+ ;;CLEAN PARTIAL NUMBER FROM STACK 
3350 Be nSaB 105010 CLRB RO) T A TERMINATOR 


tSTYPE THE INPUT UP TO BAD CHAR. 
 TBOINTER GOES HERE 
iiege MORY aL pH 


::TRY AGAIN 


6$: 


e 
v0 
a 


e 
8 
3 
82 
8s 


fo 
3 
3 
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.SBTTL TYPE ROUTINE 


TARS 

55 ESE SESE 989 3 98 9 9 SS AEE EE SE EEE EEE 

; ROUTINE TO T H Pere 
T 


3359 
cet bATHE ROUTINE WEL INSERT A NUNGER OF MULL CHARACTERS AFTER A LINE FEE 
35 ENOTES: BR ER TAING THE OF aftkt 6 70 bE beep Ae a HF EE RARACTER. 
4 ¥NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
ae : ENOTES: | SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
336 ?#CALL: : 
3368 #1) USING A TRAP INSTRUCTION . 
$363 is - TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
sé TYPE 
;# MES 
7. 3% 
| 3375 g20254 105737 001157 _ $TYPE: TSTB  S$TPFLG 33IS THERE A TERMINAL? 
1 BPL 1$ ;;BR IF YES 
3377 Oe02b2 HALT ;:HALT HERE IF NO TERMINAL 
bepeb4 07 BR 3$ > LEAVE 
1 1S: MOV RO,-(SP) SAVE RO 
020270 017600 ooo002 MOV adetsSP),RO :3GET ADDRESS OF ASCIZ STRING 
338 2046 2s: MOVB  (RO)+,-(SP) >:PUSH CHARACTER TO BE TYPED ONTO STACK 
I BNE 4 >;BR IF IT ISN’T THE TERMINATOR 
TS (SP)+ +:IF TERMINATOR POP IT OFF THE STACK 
Be Ea Bae ae ne At 
. l 3$: ADD #2, (SP) ;;ADJUST RETURN PC 
3386 020319 RTI : RETURN 
3387 1 i614 000011 4S: CHP HT, (SP) ::BRANCH IF <HT> 
3366 16 000200 CMPB =: SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
3390 020324 091006 BNE S$ 
3391 020326 7 TST (SP)+ 3;POP_ <CR><LF> EQUIV 
s236 020330 4 TYPE 3; TYPE A CR AND LF 
N20332 0011 SCRLF 
3394 020334 1 020470 CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
Be ie mh OF La Re mito 
? cS: SR C,STYPEC 33 THIS C TER 
| $397 020346 123726 OO1156 6S: CMPB ss SF ELL, (SP)+ 18 IT TINE FOR FILLER CHARS. ? 
be036¢ 1350 BNE 25 IF NO GO GET NEXT CHAR. 
$393 13746 001154 MOV $NULL, -(SP) 3GET # OF niarten CHARS. NEEDED 
3401 020360 105366 000001 7S: DECB «AAC SP) + ONES A NULL NEEB TO BE TYPED? 
3402 020364 770 BLT 6$ *:BR IF NO--GO POP THE NULL OFF OF STACK 
03 O°0366 O04? 37 peoue4 JSR PC, STYPEC $560 TYPE A NULL 
020372 1053 CB  SCHARCN ::D0 NOT COUNT AS A COUNT 
s408 020376 000770 BR 7§ : LOOP 
a0? ;HORIZONTAL TAB PROCESSOR 
_ 3409 112716 OO00040 8S: MOVB = #”_—, (SP) ;;REPLACE TAB WITH SPACE 
3410 004737 Oe0424 : JSR Pc, $TYPEC :: TYPE 
sii 020410 132737 000007 020470 BITB 87, SCHARCNT ; | BRANCH IF NOT AT 
341 001372 BNE gg :3;TAB STOP 


—_—— es Se 


MOS 
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a413 020420 005726. TST (SP)+ ; sPOP SPACE OFF STACK 
3 betes 103777 160520 STYPEC: 7318 TPS beet NT UNTIL CHER TNTER IS READY 
17 132 116677 16051 MO 2(SP) ,a$TPB OAD CHAR TO BE TYPED INTO para REG. 
i GeoNi0 128768 anata ited chee teh, 2t8P) HTS Go CHARACTER Bt cawntncd eer 
: 20 os0y7 020470 cLRE SCHORCNT i Yeer=c - NCHARACTER COUNT 
ee be0456 ae po00012 oo0002 1S: cHPB aLr ,e(SP) iTs mere Tess LINE FEED? 
24 Deoveb 355 INCB (PC) + tFOUNT THE CHAR 
a b20479 SCHARCNT: . HORD 0. ; CHARACTER KOUNT: ¢ BRAGE 
3428 . 
sie3 
30 
3431 ; 
3432 020474 STRAP 
3133 .SBTTL TRAP DECODER 
stg 020474 ee ee TARS 
36 Lie tat heen Rane rereg rgeeeteegee tree 


3437 THIS ROUTINE WILL PICKUP THE RUCTION 
+) 5 AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


3438 
3439 ;#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
siH0 :%G0 TO THAT ROUTINE. 
sie 020474 010046 ne MOV RO, -(SP) ;;SAVE_RO 
020476 O1 oooose i tet MOV 2(SP),RO :;GET TRAP ADDRESS 
3444 020502 005740 TST -(RO) *:BACKUP BY 2 __. 
Be Bee tne alae ca Ace a 

3447 020510 016000 o20si6 MOV STRPAD(RO) ,RO + TNBEX TO Fog e 
si 020514 000200 RTS RO +$G0 TO ROUTINE 
3450 O20516 SETTRAP TYPE,STYPE,t/TTY TYPEOUT ROUTINE/ 

3451 20516 me SSSET TYPE, STYPE,\<TRAP+STRP>, \STRP,<TTY TYPEOUT ROUTINE> 
3452 .SBTTL TRAP TABLE 
Suen *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
ae BY THE “TRAP” INSTRUCTION 
34 : ROUTINE rae aks +: : 
3458 ; quence 
3159 020516 $TRPAD: 
020516 o20254 STYPE . -CALL= TYPE +0(104400) m1 TYPEOUT ROUTINE 

. 3461 020520 é Se TTRAP toc, STvPOC, {TYPE TAL Pobtat ZEROS)/ 

Sues te0ee9 017050 ose oiNgLy 1 T at Mea gangs)» 
Suee | DSbE 3 a eRe ee cal \STRP, uk Pat NGRBER. (NO LEADING ZEROS)» 
‘gb Gegees 017024: a YBOS VEAL =TYPOS’ pPsec ioe) Orta He Ne eRe) 

SETTRAP iiSon- ST STYPON, t t/1VE "he PER Maat 

. 3468 O20524 


S$SSET  TYPON, STYPON, \<TR +STRPD, NSTRES «TYPE OCTAL NUNGER (as PER LAST CALL)> 





a — + -  e | 


NOS... 
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a0 O20Se4 O17064 ~~ STYPON ;;CALL=TYPON TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
71 





a: a GI” SR BRE LR EN YEN coer saz 
-, x : FRAP N, SaDL IN PTYPEIN STRING R 
ie s 017724 a a iH BOUIN, CT \CTREPSSTRPD, \ i, ee isthe ROUTE he 
5 ae 020076 i Pee aur re ao Ete See tS o,f A PECINAL NUMBER FROM TTY 
t 
34 SETTRAP G,¢ 
oe Be Bee ie con wee te 
sey O20536 SETTRAP Aicheg RESREG, tAEST RO-RS_ROUTINE/ 
Seset RESREG, SRESREG, \< TRAP#+STRP>, \STRP, (RESTORE RO-RS ROUTINED 
3486 020536 016206 SRESREG ; ; CALL=RESREG ‘yRAP+10(104410) RESTORE RO-RS ROUTINE 
oe gens : *  SETTRAP INOCT, INOCTR, <INPUT OCTAL ROUTINE? 
89 0205 op Inoere INOCT? INOCTR, a site Aster CINPUT OCTAL aROUTINE? 
Ey a1 totes a jets eer me ie arn, Ne Ft ReTRP Rout ine 3 NPUT ADDR. ROUTINE> 
3493 020542 013314 RINA NRA THAR Pee 1ou4le) ) iheut NPUT ADDR. ROUTINE 
Sige pepeud Sear out ROUT: TRE \STRP. <INPUT GUTPUT ADDR. ROUTINE> 
S136 pensus 013406 : R Ta Fac =OUTAR TRAB + Lacovitas 3) INPUT OUTPUT ADDR. ROUTINE 
4 Rap Pi TA, <INPU PATHE ROUTINES 
3498 020546 a ssoer BR REAT TR, Neha Hy 4 ARE U. » \ 1 eur PaTTERN PY ROUTINE) ; 
oi ties seas ie cay REE MY eo cing 
3204 020550 O1S060 ROELA jee DELAR TT ‘ +15( 10441 sitet b Y TIME Rou HME 
’ 
Be BES once Bt Atte Tet inte a eReMTCO tae 
3c0y pepees selTnr DELAY 1 RELA, CRIRAPSETRPD SSTRP CROUTINE TO. DELAY XX MILLISEC> 
3508 o1ss44: RDELAY ete AY’ TRAP+ +7 A9HI2) RO ROUTINE TO DELAY XX MILLISEC 
= Gee seltnve SERTR ACPA, cROUTINE 10 CeaNae PATTER) OT 
Sh ey mn Reon Iie Rose naurle ABUT Ba HADES" ONE TENS 
TTRAP ft A, <ROUTI 
3513 020560 SSSET  IDAC,RDACA, \<TRAP+STRP> \STRE < 19 INPUT DAC ADDR> 
is 020560 013572 ROACA ;;CALL=IDAC TRAP+21¢ 10442! ) tathe 0 INPUT DAC ADDR 
16 O20S62 sus TRAP CNTAR,RCNTA, “ROUTINE TO INPUT COUN 
3a denses 013500 } fa, a i ek oe Sine 1 | 10 INPU a SOUT rE eo BR 
q XC TRAP STH 
B G state a eran ay fou! TEM rae TAOS POOR 
Stas! RIN A TRP>.\ Tie 10 1 SYSTEM INITIALIZE> 
- o1se42 $3 IT RIM TRAP+euCLoMMe4s ROUTINE TO SYSTEM INITIALIZE 


——-— ee Ce o- 









BOo 
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: SORTS ean eae raat Bt an 
>, \$T 
SBE cous i rey eeretielk a 8 a 
=> SET | a Be RP. « TUNE OR BI-PoAR 

2 os73 o1s2s2 Re NT, Rau aut Te Ae UNI OR 
334 j#ACSII MESSAGE SECTION 
a 920574 041511 O26523 MHEAD: ‘ASC «12> :IC8- 1 1 FIELD LD TEST. PROG PROGRAM - UMRINDEC@L1-D2ICR-B «15>: ie 

020651 , dG »<12>7 af 


(15><1 Ve’ UTPUT OULE 
(ls 137 Rbk De Phat earns oe (IF INTERRUPT) / 


 QM7S16 O43040 MNDA: “ASCIZ <15><15>/NO 









021063 01S 42412 O42116 MEND: .ASCIZ <15><12>/END PASS/ 





IZ (13) «12076. & COUNTER MODULE ADDRESSES / 


fe 
F 
: 
i 






02107 ¢ > ASC 
921136 04 MEXEN: ASCIT /te/ 
21146 tosis OSW10S ON2S20 Ae «15) (12) /EXPERT MODE ENABLED/ 
21179 OOS0LS 5410 O¥2520 ape “BSCE <15) (12) EXPERT MODE OISABLED/ 
021221 015 o340l2 0320S *  Tascri ag or >/8.4 LINE PRINTER MODE ENABLED/ 
2126) 008015 OHOSIS OH2S13 | :ASCIZ «15 (12> MIKE PRINTER READY? 
21 307 01S puis 047457 amy. -ABCIZ (UB) 1292170 MODULES ASSUMED CONNECTED: ; 
31362 sostis 04 047503 MDEL2: raat ater > SECONDARY DELAY TINE?/ 
Oel4d2 00501 45522 MWK: ASCIZ <15><12>/WORKING. . # 
7 MDAC: 46.7 ADDRE 
pet ds oosoLe pesoEe MeO; caects CB 4.2 DO RES 
pelos Q0s0i 117 MABOV: ast! 1B 18) MANY NUMBERS-RETYPE= / 
Sieg OS is Bae tie, eee Lib Ale ee 
a ae a ee ee REST 0 
A ae OB a gerd a 
: B515;5 BERLE BSPBeE + OPAL Rees CHES CLSD RCI PATSERNENG MODIFIER, PATTERN » 
021756 O0s015 037440 OO0040 MOMARK: (15><1297 7 7 
021764 0200 090 MQ: 27 
17%? OL oswiie Jz MSTERR: .ASCIT <15)<12>/¥0u 4 INITIALLY START PROGRAM AT ADDR. 200/ 
i 3101 SCI (15) (18> /F arTER AT ADDR. 210 IS ALLOWED! 
il Of 1 116 MNRFN: “ASCIZ <15)<12> 2 ; : 
ee) 15 041412 052517 EMI Cl ee SEND-RECEIVE DATA 
6221 16 OS1412 047105 EMe ASCIZ <15><12>/SEND-RECIEVE DATA ERROR’ 










































06 
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141g ON7117 ENG: = .ASCIZ (15) <12>/CONVERT BIT FA 
i Bids Bich? Er Aes TB ae T ERILED. ie ; 
A 71 i MS: : 4] Da eo FA NTERRUP 
: Babar 1 Eur: Ae 18 153 /AooR, aiUeD gard Tere INCORRECT ON_INTERRUPT/ 
1 : iASCIZ «15><12>/RIF OID NOT CLEAR INTR FLAG ON AOCS/ 
Ons EE En tay oe AODRY | 
Ones ASEEE Bele RC” BOR BATA DATA 
Bessts «ate Gsodis Gedona OM AREER EN Chay MRE mod exprD REC'D 
MNAE 


022783 01S O47012 020117 :  .ASCIZ «15><12>/NO COUNTER MODULE ADORS.ENTERED/ 

023015 O15 O414i2 052517 EM11: .ASCIZ <15><12>/COULD NOT READ-WRITE INTO COUNTER MODULE BUFFER/ 
Beaiee cosBle Gene Guise) © cAscie <IEciB7 “Pe “ROOR/ 

023140 o0S01S O47503 O47125 EM12:  .ASCIZ <15><12>/COUNTER MODULE-UP COUNT INCORRECT / 

O23204 o0S5015 047503 O47125 EM13: .ASCIZ <15><12@>/COUNTER MODULE FAILED TO INTERRUPT/ 

0232S1 O1S O4l412 OS2517 EM14:  .ASCIZ <15><12>/COUNTER MODULE-ADDR. OR GENERIC CODE INCORRECT ON INTERRUPT/ 
023347 O15 O41412 052517 EMIS:  .ASCIZ <15><12>/COUNTER MODULE Di7™’T STOP COUNTING ON OVERFLOW/ © 
023431 0:5 OS1012 O43111 EM1é:  .ASCIZ <15><12)/RIF DION’T CLEAR INTERRUPT FLAG ON COUNTER/ 
023506 o0S01IS OS4S23 O27123 EM17: .ASCIZ <15><12>/SYS. INIT. FAILED TO CLEAR COUNTER BIT(S)/” 
O23562 O0S01S O46111 042514 -ASCIZ ¢15><12>/ILLEGAL INTERRUPT POSTED ON ICS BUS/ 

~ASCIZ ¢15><12>/ICS FAILED TO INTERRUPT CPU/ 

-ASCIZ <15)<12>/ILLEGAL ADDR. OR GEN CODE BITS IN ICAR/ 
eASCIZ <15><12>/SYS. INIT. FAILED TO CLEAR COUNTER INTR. FLAG/ 
024017 01S O4141l2 052517 -ASCIZ <15><12>/COUNTER STARTED COUNTING AFTER SYS. INITIALIZE’ 


EM20 
023630 905015 041511 Ce0l23 Enel 
EN2e 
EM23 
EMe4 
G24100 005015 030101 032460 EM2S: .ASCIZ ‘15><«12>/AOOS READ DUAL ADDR. ERROR’ 
Ere? 
DHS 
MQURB 


Beige. BIE Beinis buries BEH3 1B UE Sena Recteve oATA enor 
Bevsas «= «BE Genols De008D Rete desis pe | “ADOR AOR, 
024276 OOSOIS O270S6 03106! : .ASCIZ ¢15<12>/6.12 UNIPOLAR OR BIPOLAR ( U OR B) / 
024344 OOSO1S O751 OHOHHO MNAD: —.ASCIZ <15)<12)7NO A/D ADDR. ENTERED? 











06 
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~—6OIS «051412 030127 MSWO: .ASCIZ <15><12>/SWOO=1 MEANS RETURN TO MONITOR/ 
O304SS 027060 030060 MMOVFL: .ASCIZ /-10.0000 (OR OVERFLOW)/ 


oosbig 80984 BRSSSS Frgrs“’ <AScES (18S 200 7RGREar TO” 


O40 O42S22 O42101 MCALOT: .ASCIZ / READING (OCTAL)/ 
OS3040 046117 051524 MCALTI: .ASCIZ / VOLTS (DECIMAL) = 


900055 ” MMINUS: .ASCIZ /-/ 
000053 MPLUS: .ASCIZ /+/ 





024373 










COSOIS O42522 052123 PWRMSG: .ASCIZ <15><12>/RESTARTING AFTER A POWER FAILURE/<15><12><12) - 

00500: 42524 OS2123 MHTO: .ASCIZ 1><12>/TEST 0 - INPUT AND OUTPUT MODULE EXERCISER/<15><12> 
O15 OS2012 OSISOS MHT1: ‘.ASCIZ <15)<12>/TEST 1 - INPUT OR OUTPUT MODULE EXERCISER/<15><12> 
O15 OS2012 OSISOS MHT2: .ASCIZ <1S><12>/TEST 2 - DAC CALIBRATION/<15> «12> ' 

OOSO1S O42524 052123 MHT3: .ASCI? <15)<12>/TEST 3 - DAC INTERACTION/<15><12> 

1S OS2012 OSISOS MHT4:  .ASCIZ <15)<12>/TEST 4 - COUNTER MODULE TEST/<15)<12> 

OOSO1S O42524 OS2123 MHTS: .ASCIZ <15)<12 TEST S - A/D LOGIC TEST?<15><12 

DOSDIS O42S24 052123 MHTb:  .ASCIZ <15><12>?TEST & - A/D CALIBRATION?<15><12> 











Geetle G5 1308 : .ASCIZ 15) (12) °TEST 7 = BY REPEATAG ILI TYE t1s2 (12> 
00501 4 V: .ASCIZ ¢15><12>78,4 LINE PRINTER OPTION AVAILIBLE/ 
040S26 :  .ASCIZ <15><12>/INVALID PATTERN MODIFIER/ 
O15 033012 O3O04S& MGAIN: .ASCIZ <15><12>/6.13 GAIN / 

02 HAN: . (15><12>76.14 (SC,EC)/ 
2 DSsnis OSONee TOL: | cASCI? C1e>cdS>/6:16 TOLERANCE’? 
S O4e4le OS1l22 MCHERI: .ASCIZ <15><12>/ERROR! STARTING CHAN. GREATER THAN END 
2 ais 123 MINNN: PRIS (] ip A T CHARACTER FOND cnet Be pelt ne tire 8% / 
BSlw «15><12> NOT i # 


1S O42412 051122 MCHANH: .ASCIZ <15><12>/ERROR! NO SUCH CHAN. / 


12 Garois Geli? ANG: ‘Asch? <le>ciS>/nO Suen GAINN/ 
15 O47012 “OM6525 MNTL: ran «15> (12) NUMBER TO LARGE-NAX=7777/ 

| <15><12>/REPEATIBILITY FORCED TYPOUT/ 
O1S OS1012 OSO1OS MREPER: .ASCIZ 15><12>/REPEATABILITY ERROR! / 
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MAT 
DZICRE 
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RAP TABLE 







026074 005015 041440 O40S10 MREPT1: .ASCIZ <15><12>/7 CHAN GAIN LOW AVER HIGH/‘15><12> 
46 


ll sa Be440 { te Sa AeeLe eet a 4 45° HIZCIS» c12> es 
1b Basle Gsldee Mech: castle <IBs<lg) “6-2 TCS VECTOR AoDRESS 


O4eS14 ILLEG: . GAL NUMBER/<15>< 12> 


ae bg 
IB 18) 

: i WITH (AODRESS./ BOX 7415) «12> 
on hit pert oo Aste is te DID NOT at -FATAL/ 
527 B43 Beeaee 1449 CRIMP: BeKts 

026552 005015 O47516 026516 NONXST: .ASCIZ 







(15) seit ILE BOX IN NIERUPTED f 
(15) (12> “NON-EXISTENT FILE 80X/ 






3527 026602 Ol Ole gute i ” vile 15,12 
3538 O26604 poonee 
38393 0eb636 . +30 

40 026636 


ete 1S FUNCTION OF HOW MANY CHANS. ARE BEING EXERCISED 





iS 
Z 
y, 
ihn 
i 
a 
i 
f 


5 
3 : 
i 


MMmeanucuuiute, oF her 


Og dg Bd od od Wed doe ™ + pam 


que RET ARSSE SRS AAGASRSASTECSETS 


eS a a 


MACY11 27 (7. 


CROSS REFERENCE T 


CoE Sean 


PeRREbER ER gta PoBSNIR BSS BE ONT Lure nop me 


per xtatetetetetetetetetetetetertattet ete etstettertet ater eat ate 
P-Petatetetetratatitetepitettitertatieriettetetetrteten 


C=11-DZICA-B 
Pll 


ne 


NAI 
0zI 





GO6 
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ellis 
21108 
2369 
2408 
1S8S 
298 
384 


se 
cu — FT to 
-« wo - o 
3 a a = & 
ee: e Ee 
a 8 8a * um 


985 
986 
2054 
23628 
2334 
2314 
1418 
277 
368 


i tifig { gS awe fi 
, sos tua gee aq 
a 


2335 2618% 
2287 
887 
22018 
1193 
249 
340 


1 ie ~ > ee 
(She See Seek e 8 B28 aha RR Se 
G 2 saGet Sees e 8 EF fe Sy ek ese & 


1902% 
018 
1 
2231 
21848 
775 
627% 
aise 
fi 


1954 
16368 
1887 
Boys 
12% 
21188 


SSE £5 SRSSHS 4 
SE SS 89 oO a x 2 23 eR ee oe Sak 


sx @ orn he 
sintasciaiocins inphalatiiiy Sizendenedl 


OE 6 of Od ah dd ad ~~ 


pales acohibpie Gears TRRRURS RGN SS oF DRESS 


Ok a dd ad Oh Od 9 4 wo 4 HLS oe Behe’ Cpa 


ns ee cn aed 


thy 


et en Meee ete Roe eae ee ee ee ee en ee oe oe eo roy 
QOOWOWKW00O0000000000 


oman me faa 


rarer UES I S. monls. 


re ees 





HO6 


SNES ans nf EEN lf MOE” 


¥ 


4) 


Coo 


Rorororare 


g 


2 


gaage 


Boge 
oe 





AAA ATATATATAT ter 


sa wae AL 
zigepeeeseeeeeees 


bes bee 


Pea RT Pah 


ef plese 


ee ee 


1 


a Se a a: ee ee 
466% 


35368 
19928 
477% 488% 3184 318S* 3187% 3190 
oben 8s93 864 889 908 937 2246 2270 2295 
2608 2610 2641 2553 2668 2683 2718 

995 4737 1781 1823 1846 2228 2252 2276 2300 
2583 1 
35278 : 

ry $0 gees O99 1417 446% S584 754% i19884s 
43% Ua 66% ef 

. zie 4ee * 2546 2663 

3 see 2677 ' 

¥ tH 40% 646 649 6SS 1573 eS44 2S66 
pace * 13" 698 S584 1754 

beet cose Pre 6s5S* 1417 1446 

vive ibe bade 650 670 84 2536 

6 Ped, 653 656 6S9 660 663 664 1890 
538 5 660% 661 1884 
1 1779% . 1919 2016 2lles 


1890# 


2336 
e724 


2498% 


1893 
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GLIST 013062 1769 = 21398 

GNS 


2 emma: wis Sects ether? ky GS? RHO 


O44 4-4-4 4-40-4404. 0-4 0-00-00 


SoSuB = 904737 udge 1799S 1377 «1805 «= Beds«éBO?SSsBOBS SBSH 
34 gee 7% ye woke 
T O10e40 1 1 
10814 leu = 1e44# «1661 «1665S = sLGB7® «16728 «16778 
Han = Gooete i. Sa 883 1252 1290 14S8 
Re RH Bie hh i oh t 2eab 
COLMT O01 qusy | bus » “e3y 
cSn00 001616 ize. BY cs OE 
CR OOOIe 1G Ct 
cyt gpusa Saas ess TECSE. GREE tSG3S 1SSSE ddd. | ta5e , 
Cevt2 o0les2 usis «ege «bbe eBe S73 1G4Se | 
Bac = 104421 rf 
NEG [31 3B 900 «1029-«S«21SOe 2232 «2237s 
= 1ou412 1025 34938 
NCFLG 001830 usde 2360s 24i0 2436 24gee 244Be 248 . 
NITR = 104424 1031, 1182 =«si2ll. «=si284.=«sdT301-=s«319s's«dTS3?—=—is«RGSC«dSGSC«CODS DW 
NOCT = 104411 S17 SHB 71217651806 igs Bae «S220 SsB34— 2308S 23282782 
NOCTR 913746 Syise 2470 H7Y~SseuBLSC3490 | | 
OTVEC= ls Mae Ueue 
KEYSRV O03 rae 
s 1 47g aes 34 
CINEPR O01 uabe . 25 14% 
1656 uses | b0Se «= bbe BE10 
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